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ABSTRACT 

Connecting  heterogenous  computer  systems  via  local  area 
networks  presents  a  challenge  to  software  designers  for  the 
development  of  effective,  reliable,  and  modifiable  network 
communication  software. 

This  thesis  presents  a  set  of  hierarchical  program 
modules  written  for  use  on  any  INTELLSC  MDS  microcomputer 
development  system,  running  the  CP/M-80  operating  system,  to 
allow  the  system  to  become  part  of  an  Ethernet  local  area 
network.   These  program  modules  were  written  to  not  only 
obey  the  principles  of  software  engineering,  but  to  also 
reflect  the  same  functional  hierarchy  as  the  International 
Standards  Organization  Open  System  Interconnection  (ISO  OSI  ) 
architectural  reference  model  for  computer  networks. 
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I  .   INTRODUCTION 

A.   DISCLAIMER 

Many  terns  used  in  this  thesis  are  registered  trademarks 
of  commercial  products.   Rather  than  attempt  to  cite  each 
individual  occurrence  of  a  trademark,  all  registered  trade- 
marks appearing  in  this  thesis  are  listed  below  following 
the  firm  holding  the  trademark: 

Digital  Research  Incorporated,  Pacific  Grove,  California 

CP/M-80  Operating  System 

CP/M-86  Operating  System 

PL/I-88  Programming  Language 

PL/I-86  Programming  Language 

LINK-80  Linking  Utility 

XLT-86   Code  Conversion  Utility 
Intel  Corporation,  Santa  Clara,  California 

INTELLEC  MDS  Microcomputer  Development  System 

Multibus  Bus  Architecture 

8080/8086  Microprocessors 

3080  Assembly  Language  Programming  Language 

ISIS-II  Operating  System 

IAPX-432  Development  System 
Digital  Eauipment  Corporation,  Maynard,  Massachusetts 

VAX  11/780  Minicomputer 
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VAX/VMS  Operating  System 
Interlan  Corporation,  Chelmsford,  Massachusetts 

NI3010  Ethernet  Controller  Board 
Xerox  Corporation,  Stamford,  Connecticut 

Ethernet  Local  Area  Network 

B.   BACKGROUND 

The  connection  of  heterogeneous  computer  systems  via 
some  form  of  network,  to  perform  various  data  processing 
tasks  where  data  or  resource  sharing  is  important,  is  an 
extremely  active  topic  for  both  hardware  and  software 
designers . 

The  International  Standards  Organization  Open  System 
Interconnection  (ISO  OSI)  architectural  reference  model 
provides  the  general  framework  in  which  computer  network 
systems  are  designed  to  operate.   This  seven-layered, 
hierarchical  description  of  functions  was  developed  to 
provide  a  vehicle  for  the  later  development  of  a  set  of 
specific  network  protocols.   The  hierarchical  nature  of  this 
model  compares  favorably  with  the  techniques  of  hier- 
archical, structured  design  of  software  that  are  being 
taught  and  implemented  today.   The  logical  conclusion  of  the 
above  comparison  is  to  use  the  functionally  layered  frame- 
work provided  by  the  ISO  OSI  model  as  a  guide  for  deciding 
how  to  modularize  the  communication  software  necessary  to 
allow  host  computers  to  be  connected  via  a  network. 


11 


C.   PURPOSE 

The  main  purpose  of  this  thesis  is  to  construct  a  soft- 
ware interface  to  the  CP/M-80  operating  system  so  that  files 
and  messages  can  he  transported  hetween  various  host  systems 
via  a  Local  Area  Network.  The  structuring  of  this  software, 
to  reflect  the  layers  of  the  ISO  model,  allows  modifications 
to  the  network  software  to  he  more  easily  made. 

This  thesis  presents  a  set  of  PL/I-80  and  Intel  93S0 
Assembly  Language  modules  that,  when  linked  together,  allow 
INTELLEC  VDS  users  to  communicate  via  an  Ethernet  Local  Area 
Network.   The  complete  set  of  software  developed  also 
includes  two  programs  that  can  he  used  to  trouhleshoot  or 
test  the  Ethernet  hardware.   The  communication  program 
allows  INTELLEC  MDS  computers  connected  to  the  network  to: 

1.  Send  messages  or  files  to  other  hosts. 

2.  Receive  messages  or  files  from  other  hosts. 

3.  Become  a  terminal  of  the  VAX  11/780. 

4.  Command  file  transfers  to  or  from  the  7AX. 
Additionally,  the  communication  software  will  provide 

faster  data  transfers  hetween  host  machines  than  the  direct 
host-to-hcst  serial  communications  methods  currently  used. 
This  thesis  is  divided  into  four  chapters.   Chapter  II 
discusses  computer  networks  in  general.   The  Ethernet  is 
presented  as  a  specific  example  of  a  Local  Area  Network. 
The  Interlan  hardware  is  also  discussed  as  an  implementation 
of  the  Ethernet.   Chapter  III  deals  with  the  details  of  the 
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Ethernet  communications  software.   The  topological,  hard- 
ware, software  and  performance  issues  are  presented  in 
detail.   Chapter  IV  presents  the  conclusions  drawn  from  the 
network  realization  and  discusses  possible  areas  of  future 
erowth  and  performance  enhancement. 
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II.       COMPUTER    NETWORKS 

A.  DEFINITION 

Computer  networks  are  defined  to  be  collections  of 
interconnected,  autonomous  computers.   A  computer  network 
can  also  be  a  grouping  in  which  the  required  processing 
functions  are  dispersed  among  several  of  the  attached 
hosts.  [Ref.  1:  p.  2] 

Computer  networks  are  classified  by  their  length. 
Networks  whose  attached  hosts  are  farther  than  a  few  kilo- 
meters apart  are  considered  Long  Haul,  while  shorter  networks 
are  considered  Local  Area.   Networks  are  also  classified  by 
the  nature  of  the  hosts  connected  to  them.   Homogeneous 
networks  consist  of  like  hosts,  while  heterogeneous  networks 
consist  of  dissimilar  hosts. 

B.  PURPOSE 

The  main  reason  that  the  subject  of  computer  networking 
has  rapidly  achieved  prominence  is  that  networking  provides 
a  workable  solution  to  data  processing  problems  where  the 
sharing  of  data  or  other  resources  is  important.   Networking 
can  also  enhance  the  fault  tolerance  of  an  activity's 
computational  assets.   Loss  of  any  host,  connected  to  most 
Local  Area  networks,  would  not  affect  either  the  other  hosts 
or   the  network  itself.  [Ref.  1:  -?^.    3-4] 
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Current  treads  seen  to  point  to  the  merging  of  personal 
computers  with  Local  Networking  to  form  what  one  author  calls 
"community  microcomputing"  [Ref.  2:  p.  60].   This  refers  to 
the  interconnection,  via  a  Local  Area  Network,  of  a  set  of 
microcomputers  that  may,  as  a  networked  group,  enhance  the 
price/performance  ratio  for  the  using  activity  when 
compared  to  installing  a  single,  large  mainframe  computer 
[Ref.  1 :  ?.  5]  . 

C.   THEORY 

The  most  generally  accepted  model  of  computer  network 
architecture  is  the  International  Standards  Organization 
Open  Systems  Interconnection  Model  (ISO  OSI)  model.   This 
model  is  a  set  of  hierarchical  functions  and  protocols  that 
are  necessary  to  allow  computers  to  communicate  via  a  net- 
work.  The  seven  layers  and  their  definitions  are  listed 
below:  [Ref.  1:  pp.  15-21] 

1.  Physical  Layer  -  This  layer  provides  the  actual 
connection  between  hosts.   It  provides  the  bit 
stream  transmission  across  the  network  medium. 

2.  Data  Link  Layer  -  This  layer  performs  error  detection 
and  correction,  address  recognition  and  flow  control. 
This  layer  also  provides  data  framing  if  necessary. 

3.  Network  Layer  -  The  network  layer  provides  logical 
channels  between  two  endpoints  in  a  network.  This 
layer  forms  the  data  into  packets  for  transmission. 

4.  Transport  Layer  -  The  transport  layer  provides  the 
network  with  single,  group,  or  broadcast  addressing 
modes  and  sets  up  virtual  circuits  between  hosts. 

5.  Session  Layer  -  This  layer  contains  the  functions 
necessary  to  perform  address  conversion.   This  layer 


15 


initiates,  binds,  and  terminates  the  dialogue  between 
hosts . 

6.  Presentation  Layer  -  The  presentation  layer  is  mainly 
concerned  with  converting  and  transforming  the  data 
passed  to  a  user.   This  layer  also  contains  the  file 
transfer  and  virtual  protocols. 

7.  Application  Layer  -  The  application  layer,  the  highest 
in  the  model,  is  where  the  user  interface  to  all  the 
network  services  resides.   The  lower  layers  exist  only 
to  support  this  layer. 

Many  computer  networks  with  layered  protocols  exist,  but 

their  layers  may  not  match  the  ISO  model  exactly  because 

some  of  the  ISC  functions  may  not  be  necessary.   The 

development  of  the  model  came  about  due  to  the  need  to 

standardize  network  description.   The  main  factors  that 

motivated  the  designers  were:  [Ref.  1:  p.  15] 

1.  To  create  a  layer  where  abstraction  was  necessary. 

2.  To  give  each  layer  a  well  defined  function. 

3.  To  keep  the  information  passed  between  layers  to  a 
minimum. 

4.  To  create  only  a  minimum  number  of  layers  to  decrease 
complexity. 

The  above  design  principles  are  the  same  as  the  software 
engineering  principles  of  abstraction  and  modularity.   The 
hierarchical  structure  also  compares  favorably  with  the 
structured  programming  techniques  of  software  design  that 
are  currently  being  advocated.  [Ref.  4:  pp.  58-60] 

The  ISO  OSI  model  is  shown  in  Figure  2.1.   The  main 

concepts  of  the  model  are:  [Ref.  3:  pp.  23-29] 

1.   Each  layer  only  interacts  with  the  vertically 
adjacent  layers  through  well  defined  interfaces. 
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Changes  to  any  layer  can  thus  "be  accomplished  without 
changing  the  other  layers. 

2.   Two  basic  protocols  exist  oer  layer.   The  first  is  the 
vertical  protocol  between  layers.   The  second  is  the 
horizontal  or  peer  protocol  between  transmitting  and 
receiving  layers  of  different  hosts  that  allows 
virtual  communication  to  occur  between  those  hosts. 
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Figure  2.1   ISO  Reference  .Model 

The  flow  of  data  in  the  network  model  beeins  at  the  top 
layer  of  the  sending  host.   As  the  data  is  passed  down  the 
sending  host's  layers  additional  information,  either  bits  or 
bytes,  is  added  to  the  original  data  until  the  lowest  layer 
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is  reached.   At  the  lowest  layer,  the  data  and  added 
information  is  sent  on  the  network  medium.   The  receiving 
host  then  performs  the  reverse  process  on  the  received 
information  by  passing  it  up  the  ISO  layers  until  all 
that  remains,  after  again  reaching  the  top  layer,  is  the 
original  data. 

D.   LOCAL  AREA  NETWORKS 

Computer  networks,  as  previously  mentioned,  are 
classified  as  either  Long  Haul  or  Local  Area.   Local  Area 
networks  are  characterized  by:  [Ref.  1:  p.  296] 

1.  A  length  of  no  greater  than  a  few  kilometers. 

2.  A  data  rate  in  excess  of  one  million  hits  per  second 
(1  Mbps) . 

3.  Ownership  by  a  single  organization. 

Two  techniques  of  transmission  medium  access  are  beii2 
considered  for  standardization  by  the  Institute  of 
Electrical  and  Electronic  Fngineers  (IEEE).   The  proposed 
IEEE  Standard  532  endorses  both  the  token  passing  and. 
carrier  sense  methods  of  Local  Area  Network  medium  access. 
Token  passing  consists  of  not  allowing  any  host  on  the  local 
network  to  transmit  on  the  medium  unless  it  has  possession 
of  a  token  that  is  passed  in  a  predetermined  order  from  one 
host  to  another.   The  carrier  sense  method  allows  each  host 
eaual  access  to  the  network.   This  scheme  allows  each  host 
to  detect  the  occurrence  of  any  other  transmissions  on  the 
network  and  allows  the  host  to  wait  until  the  medium  is 
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clear  before  transmitting.   If  two  hosts  try  to  transmit 
simultaneously,  they  will  each  detect  the  collision  and  wait 
an  independent,  random  interval  before  attempting  another 
transmission.   Ethernet  is  an  example  of  a  carrier  sense 
network.  [Ref.  5:  p.  31] 

E.   ETHERNET 

Specific  details  of  Ethernet  Standard  -  Version  1.0  are: 
[Ref.  6:  p.  1] 

1.  A  data  rate  of  10  Megabits  per  second  (13Mbps). 

2.  A  maximum  host  separation  of  2.5  kilometers. 

3.  A  transmission  medium  consisting  of  a  shielded  coaxial 
cable. 

4.  A  topology  consisting  of  an  unrooted  tree. 

5.  Link  control  via  fully  distributed  peer  protocol  with 
statistical  contention  resolution. 

6.  a  message  protocol  of  variable  size  frames. 
Additionally,  it  must  be  noted  that  the  Ethernet 

Standard  does  not  provide  for  either  error  correction,  data 
encryption,  or  priority  access  to  the  network  medium.   At 
any  point  in  time,  only  one  transmissior  can  occupy  the 
medium.  [Ref.  6:  p.  5] 

One  current  implementation  of  an  Ethernet  network  is  the 
E-BUS  system  developed  by  E-Systems  Incorporated.   The  E-3US 
implementation  differs  from  the  Ethernet  Standard  in  that 
it  provides  for  transmitted  frames  to  be  acknowledged.   The 
E-BUS  also  provides  multiple  coaxial  cables  to  increase  both 
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the  effective  bandwidth  and  the  overall  fault  tolerance  of 
the  network.  [Ref.  10:  pp.  77-79] 
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III.  NETWORK  IMPLEMENTATION 

A.   TOPOLOGY 

The  Ethernet  Local  Area  Network  implemented  at  the 
Computer  Science  Department  of  the  Naval  Postgraduate  School 
consists  of  three  connected  systems: 

1.  The  VAX  11/790  (VMS  operating  system)  minicomputer. 

2.  An  INTELLEC  MDS  system  'CP/M-80  operating  system), 
with  attached  double  density  disk  drives,  that 
functions  as  the  input/output  processor  for  the  Intel 
IAPX  432  32  bit  microcomputer  system. 

3.  A  second  INTELLEC  MDS  system  with  attached  single 
density  disk  drives.  (Also  CP/M-se) 

This  thesis  presents  the  software  necessary  to  allow  the 

above  CP/M-8?  based  systems  to  communicate  via  the  network. 

The  software  necessary  to  allow  the  VAX  11/760  the  same 

communication  capabilities  was  written  by  Lt.  Thawip 

Netniyom  [Ret .   9] . 

3.   HARDWARE 

All  the  hardware  needed  to  implement  the  above  network 
was  provided  by  the  Interlan  Corporation.   The  hardware 
needed  to  connect  each  INTELLEC  system  to  the  network  was 
installed  as  follows:  [Ref.  7:  pp.  7-13] 

1.  The  base  port  address  switches  and  the  priority  and 
interrupt  jumpers  were  set  on  the  NI3010  Ethernet 
controller  board  as  shown  in  Figure  3.1. 

2.  The  NI3010  was  then  inserted  into  the  INTELLEC  system 
in  an  odd-numbered  slot  in  the  Multibus. 


21 


3.   The  NT10  transceiver  was  installed  across  the  Ethernet 
coaxial  cable  and  the  cabling  that  connects  the  NT10 
to  the  NI3010  was  connected  as  shown  in  Figure  3.2. 

The  above  mentioned  hardware  provides  the  ISC  layer  one 

and  two  functions.   The  Physical  Layer  functions  provided  by 

the  transceivers  and  connecting  cables  are:  [Ref.  7:  p.  2] 

1.  Supoort  of  a  10  Mbps  data  rate. 

2.  Bit  stream  veneration  through  Manchester  encoding. 

3.  Media  access  control. 
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Figure  3.1  NI3010  Switch  and  Jumper  Locations 

The  Data  Link  Layer  functions  provided  by  the  NI3010 
board  are:  [Ref.  7:  p.  2] 

1.  Data  encapsulation/decapsulation  'framing). 

2.  Address  recognition. 

3.  Transmit  and  receive  data  link  management. 
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The  MI301 0  operates  both  as  a  slave  to  the  host  computer 
and  as  a  master  processor  when  controlling  the  direct  memory 
access  (DMA)  operations  between  the  NI3010  buffers  and  the 
host  computer's  memory.   The  transmit  function  is  command 
driven  by  the  host,  while  the  receive  function  is  interrupt 
driven.   Control  of  the  NI3010  by  the  host  is  accomplished 
by  programming  the  host  to  load  commands,  addresses,  byte 
counts  and  interrupt  enable  values  into  registers  onboard 
the  NI3010.  [Ref.  7:  pp.  69-75] 
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Figure  3.2  Ethernet  Architecture  and  MI30ie  Implementation 

A  complete  list  of  NI3010  commands  is  located  in 
Appendix  A.   A  table  of  the  NI3010  registers  can  be  found  ir. 


23 


Appendix  3.   After  issuance  of  any  command,  the  host  must 
check  for  a  value  in  the  Command  Status  Register.   The 
execution  of  the  command  only  occurs  after  this  read 
operation  has  teen  accomplished.   The  details  of  the  read 
operation  are  as  follows:  [Ref.  7:  pp.  70-72] 

1.  The  host  issues  a  command. 

2.  The  host  checks  the  Interrupt  Status  Register  to 
check  if  the  least  significant  hit  is  a  one.   If  the 
least  significant  bit  is  a  one,  then  the  host  reads 
the  value  in  the  command  Status  Register. 

3.  If  the  value  in  the  Command  Status  Register  is  a  zero 
then  the  command  executed  successfully.   After  the 
host  has  issued  a  Load,  Transmit,  and  Send  command, 

a  value  of  one  is  also  considered  a  success.   Any 
other  value  represents  a  failure.   A  listing  of 

Command  Status  Register  values  is  located  in  Apoendix 
C. 

The  Command  Status  Register  must  also  he  read  at  the 
beginning  of  any  program  written  to  control  the  NI3010. 
This  register  must  be  read  at  this  time  because  the  NI301Z 
automatically  performs  it's  built-in  diagnostic  routines 
each  time  the  board  is  powered  up  or  reset.   The  automatic 
testing  places  a  value  in  the  Command  Status  Register  that 
must  be  read  to  clear  the  register  before  any  other  commands 
can  be  given  to  the  NI3010. 

The  NI3010  transmit  function  is  accomplished  in  the 
following  manner:  [Ref.  7:  p.  85] 

1.  The  host  loads  a  block  of  memory  in  the  format  shown 
in  Appendix  D  for  each  frame  to  be  transmitted. 

2.  The  host  loads  the  three  NI3010  address  registers  with 
the  first  address  of  the  host  memory  block. 
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3.  The  host  then  loads  the  two  NI3010  byte  count 
registers  with  the  number  of  bytes  in  the  data  bloc*. 

4.  The  host  then  enables  a  Transmit  DMA  Done  (TDD) 
interrupt  by  writing  a  value  of  6  Hex  into  the 
Interrupt  Enable  Register. 

5.  The  NI3010  interrupts  the  host  once  the  memory  block 
has  been  transferred  into  the  NI3010  transmit  buffer. 

6.  The  host  then  enables  a  Receive  Block  Available  (RBA) 
interrupt  by  loading  the  Interrupt  Enable  Register 
with  a  value  of  4  Hex.   This  step  allows  any  pending 
received  frames  to  be  handled. 

7.  The  host  then  commands  the  NI3010  to  send  the  frame 

by  writing  a  value  of  29  Hex  into  the  Command  Register 
and  subsequently  reading  the  Command  Status  Register 
as  previously  discussed. 

The  NI3010  receive  function  is  accomplished  as  shown 

below:  [Ref.  7:  p. 90] 

1.  The  host  enables  an  RBA  interrupt  as  shown  above. 

2.  The  NI3010,  upon  receiving  a  frame,  interrupts  the 
host  to  notify  it  of  frame  receipt. 

3.  The  host  then  writes  a  value  of  0  Hex  into  the 
Interrupt  Enable  Register  to  disable  any  other 
NI3010  interrupts. 

4.  The  host  writes  values  into  the  three  NI3010  address 
registers  to  inform  the  NI3010  where,  in  host  memory, 
to  transfer  the  data. 

5.  The  host  then  loads  the  two  NI3010  byte  count 
registers. 

6.  The  host  then  enables  the  DMA  transfer  of  the  data  by 
writing  a  value  of  7  Hex  into  the  Interrupt  Enable 
Register. 

7.  The  NI3010  then  interrupts  the  host  upon  completion 
of  the  transfer.   The  format  of  received  data  in  the 
host  memory  is  shown  in  Appendix  E. 

The  above  steps  are  repeated  for  each  received  frame. 

The  host  is  then  resoonsible  for  whatever  further  operations 
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must  be  done  with  the  data.   For  example,  the  data  could  "be 
displayed  on  the  console  or  written  to  a  di sl-c  file. 

The  NI3010  also  has  built-in  test  features  and  can  also 
support  the  concepts  of  broadcast  and  multicast  trans- 
mission.  Broadcast  transmission  allows  a  host  to  transmit 
to  all  other  hosts  simultaneously,  while  multicast  allows 
transmission  to  only  a  few  selected  hosts. 

C.   SOFTWARE 

The  software  necessary  to  implement  ISO  layers  three 
through  seven  was  originally  written  entirely  in  3080 
Assembly  Language.   The  final  version  of  the  communication 
program  consists  of  PL/I-90  modules  that  perform  the 
functions  of  ISO  layers  six  and  seven  and  an  Intel  809? 
Assembly  Language  module  that  performs  the  functions  of  ISO 
layers  two  and  three.   The  ISO  layer  two  functions  performed 
by  the  software  supplement  the  functions  of  this  layer 
performed  by  the  NI3010.   The  primary  goals  of  the  software 
were : 

1.  To  allow  users  to  run,  if  necessary,  test  programs 
that  will  verify  the  functioning  of  the  hardware. 

2.  To  allow  the  INTFLLFC  systems  to  communicate  via  the 
Internet  to  any  other  hosts  connected  to  the  network:. 

1 •   ±§s t  Programs 

The  basic  software  design  process  began  by  first 

determining  the  major  functional  divisions  or  modules  into 

which  a  orogram  should  be  divided.   A  primary  consideration, 


since  implementation  using  the  NI3010  is  interrupt 
dependent,  was  a  simple  interrupt  handling  routine.   This 
routine  was  the  basis  of  the  first  worxing  test  program, 
ETHTESTA.   The  interrupt  handling  module  is  the  basis  around 
which  all  the  succeeding  programs  were  written.   ETHTESTA, 
an  S080  Assembly  Language  program,  commands  the  NI3010  to 
perform  built-in  tests,  one  of  which  sends  test  data  to 
the  NI3010  Transmit  buffer  and  back:  through  the  NI3010 
Eeceive  Data  Register.   This  process  is  called  the  NI3010 
Module  Interface  Loopback  mode.   Use  of  this  test  mode  does 
not  permit  the  interrupt  handling  to  be  done  in  the  same 
manner  as  a  normal  communication  program,  nor  dees  this  mode 
allow  data  to  be  sent  onto  the  network.   The  source  code 
listing  of  ETHTESTA. ASM  is  located  in  Appendix  P. 

A  process  of  gradual  enhancement  was  then  applied  to 
upgrade  ETHTSSTA  into  a  program  that  utilized  the  complete 
interrupt  capability  as  that  of  a  functional  communication 
program.   The  follow-on  test  program,  ETETESTB,  performs  all 
the  tests  of  ETHTSSTA  and,  additionally,  sends  a  small  block 
of  data  to  itself  via  the  network  using  the  NI3010  Internal 
Loopback  mode.   A  source  code  listing  of  ETHTESTB. ASM  can  be 
found  in  Appendix  S. 

2.   Communication  Between  Network  Hosts 

The  test  programs  discussed  previously  involved  the 
utilization  of  only  one  INTELLEC  system  with  installed 
Ethernet  hardware.   The  next  logical  step  was  to  again 
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upgrade  the  software  to  allow  the  INTELLSC  systems  to 
communicate  via  the  network. 

In  order  to  give  hosts,  especially  of  different 
architectures  and  operating  systems,  the  ability  to 
communicate  via  a  network  involves  the  development  of 
higher  level  protocols  to  handle  any  differences  that  may 
arise  due  to  the  above  factors.   Specifically,  differences 
between  hosts  related  to  file  storage  and  frame  transmission 
speed  are  the  kind  of  issues  that  must  be  handled  by  the  use 
of  protocols.   In  an  Ethernet  network,  the  nature  of  each 
frame  sent  onto  the  network  must  also  be  encoded  so  that 
the  receiving  host  can  determine  what  further  operations 
must  be  performed  on  the  received  frame  data. 

The  primary  operating  system  file  storage  mismatch 
in  this  network  implementation  occurred  between  the  TAX/VMS 
and  the  CP/M-80  operating  systems.   The  VAX  stores  text 
files  as  variable  length  records  by  text  sentence.   The 
VAX,  also,  does  not  explicitly  store  the  carriage  return  and 
line  feed  characters  in  the  record.   On  the  other  hand,  the 
CP/M-80  operating  system  stores  all  the  characters, 
including  the  carriage  return  and  line  feed,  in  one  long 
continuous  file.   This  file  storage  incompatabili ty  was 
resolved  by  adding  format  conversion  routines  to  both  the 
VAX  and  INTELLEC  software  to  convert  the  data  prior  to 
transmission  on  the  network. 
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A  transmission  versus  reception  speed  mismatch  was 
discovered  in  the  early  testing  between  the  VAX  and  the 
INTELLEC  systems.   The  VAX  can  send  data  much  faster  than 
the  INTELLEC  systems  can  receive  it.   The  solution  to  this 
problem  was  to  add  a  "stop-ard-wait"  [?.ef.  1:  pp.  143-145] 
protocol  to  the  ISC  layer  two  functions  already  performed 
by  the  NI3010.   This  protocol  was  implemented  in  software 
and  assures  the  sending  host  that  the  last  frame  sent  was 
correctly  received.   This  protocol  also  prevents  a  faster 
sender  from  inundating  a  slower  receiver. 

The  frame  encoding  protocol  adopted  for  our  network 
is  as  shown  in  Table  3.1.  These  codes  are  written  into  the 
two  Type  Eield  bytes  in  the  transmit  data  block  as  shown  in 

Table  3.1  Tyue  Field  Protocol 


Type  Field 
Byte  1  '   Byte  2 


Interpretation  at  Receiver 


00E 

00H 

e0 

0F 

00 

F? 

0F 

00 

0T 

01 

?? 

FF 

Message  frame 

Last  frame  of  terminal  reply 

Acknowledge  frame 

File  transfer-first  frame 

File  transfer-middle  frame 

File  transfer-last  frame 


Appendix  D.  The  receiving  hosts  interpret  these  two  bytes, 
once  the  data  block  is  in  their  memory  as  shown  in  Appendix 
E,  to  determine  what  operations  must  be  dene  to  the  data. 
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The  other  protocol  adopted  was  to  use  fixed  data 
block  sizes  per  Ethernet  frame.   The  choices  available  to 
the  user  are: 

1.  128  Bytes,   (Must  be  used  for  all  file  transfers) 

2.  256  Bytes. 

3.  512  Bytes. 

4.  1024  Bytes. 

5.  1500  3ytes.   (Used  in  VAX  terminal  service  mode) 

A  set  of  programs,  written  exclusively  in  8232 
Assembly  Language,  was  first  developed  to  send  short,  single 
sentence  messages  from  one  IMTELLEC  system  to  another  using 
the  above  protocols.   Next,  the  file  transfer  modules  were 
developed  and  tested.   Throughout  the  entire  process,  close 
attention  was  paid  to  maintaining  software  modularity  that 
was  analogous  to  the  functional  modularity  of  the  ISO  model. 
Software  modules  that  compared  directly  to  ISO  layers  were 
maintained  as  separate  modules  and,  whenever  possible, 
rewritten  in  PL/I-S3,  a  high  level  language.   The  final 
communication  program  consists  of  three  PL/I-80  modules  and 
one  8080  Assembly  Language  module.   These  modules  were 
linked  together,  using  LIN5-e0,  into  the  final  product.   The 
final  program,  ETHERNET.COM,  contains  calling  sequences  that 
directly  reflect  the  ISO  OSI  model  structure  as  shown  in 
Table  3.2.   The  soarce  code  for  all  modules  can  be  found  in 
Appendices  H  through  ?..      Modules  were  not  written  for  ISC 
layers  four  and  five  because  these  layers  are  primarily 

30 


concerned  with  Long  Haul  network  functions  that  are  unneeded 
by  our  network:.   Modules  RECEIVE, SENDFEAMfRECFRAMtTRMSG  and 
AWAIT  are  contained  in  the  assembly  language  module  because 
the  functions  they  are  required  to  perform  are  more 
efficiently  programmed  in  that  language.   The  actual  calling 
seauence  for  the  transmit  process  occurs  as  follows: 

1.  ETHERNET:  Asks  for  user  to  select  type  of  network 
service  desired  and  calls  SENDATA. 

2.  SENDATA:  Encodes  the  transmit  type  field  for  the  user 
selected  service  and  calls  internal  routines  to  control 
the  transmission.   This  module  calls  SENDERAM  as  each 
frame  is  ready  for  sending. 

3.  SENDFRAM:  This  module  sends  each  frame  onto  the  network 
then  calls  AWAIT  to  wait  for  the  acknowledge  frame  to 
arrive  from  the  destination  host. 

Table  3.2  Comparison  of  Program  Modules  and  the  ISO  Model 


ISO 


Transmit 


Receive 


,AYER  !   File    !  Message  j 7AX  Modes  !   File   !   Message 


? 

6 

5 
4 

3 

2 

1 


ETHERNET. PLI  Same 

SENDATA.PLI  Same 

Not  Implemented  Same 

Not  Implemented  Same 

SENDER  AM (ETHE72)  Same 

AWAIT(ETHER2)/Hdwe  Same 

NT10  Hardware  Same 


RECEIVE(ETH2R2.ASM) 

RECDATA.PLI 
Not  Implemented 
Not  Implemented 
RECFRAM(ETHER2) 
TRMSG(ETHER2)/Edwe 
Same      Same 


The  calling  seauence  for  the  receive  process  is  in 
the  order  shown  below: 
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1.  ETHERNET:  The  user  selects  the  receive  mode  of  network 
service  and  this  module  calls  RECEIVE. 

2.  RECEIVE:  This  module  waits  in  a  loop  for  the  module 
RECTRAM  to  receive  a  frame  from  the  network.   Once 
the  receive  data  is  placed  in  host  memory  by  RECERAM, 
a  flag  is  set  and  RECEIVE  calls  RECDATA. 

3.  RECDATA:  This  module  decodes  the  type  field  of  the 
received  frame  and  calls  internal  modules  that 
handle  each  different  type  of  received  data  and,  as 
part  of  this  process,  calls  TRMSG  which  send  the 
acknowledge  frame  "back  to  the  source. 

The  four  major  functions  that  the  final  program 

performs  are: 

1.  Transmission  of  files  or  messages  to  any  other  network 
hosts . 

2.  Reception  of  files  or  messages  from  any  other  hosts. 

3.  The  ability  to  become  a  terminal  of  the  VAX  11/790 
via  the  Ethernet. 

4.  The  ability  to  send  specially  coded  messages  to  the 
VAX  to  command  it  to  either  upload  or  download  files. 


D.   OPERATION 

The  operation  of  test  programs,  ETHTESTA  and  STHTESTB, 
consists  primarily  of  invoking  either  program  using  normal 
CP/M-S0  procedures  and  following  the  directions  presented  by 
the  program.   Detailed  instructions  for  use  of  the  test 
programs  can  be  found  in  Appendix  L. 

Operation  of  the  communication  program,  ETHERNET,  also 
involves  invoking  the  program  using  normal  CP/M-S0 
procedures  and  following  the  menus  presented  by  the  program, 
retailed  operating  instructions  for  the  use  of  the  final 
communication  program  ar?    located  in  Appendix  M. 
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E.   PERFORMANCE 

The  communication  program  provides  faster  data  transfer 
between  network  hosts  than  currently  employed  methods. 
Table  3.3  demonstrates  the  improved  performance  realized 
in  transferring  data  between  single  and  double  density 
INTELLEC  systems. 


TABLE  3.3  Performance  Comparison  for  Tata  Transfers 
Between  Single  and  Double  Density  INTELLEC  Systems 


jSoftware  Used  !   File  Size  |   Time     |  Data  Rate(bps)     j 

KCP/M-80)  I   (KBytes)  |  (MintSec)!  Medium  !  Effective! 

SDXFER  136         22:45  3620       797 

ETHERNET  136         3:30  10M        5180 


The  data  rate  of  the  medium  is  the  rate  at  which  data  is 
actually  sent  on  whatever  medium  is  being  utilized.   The 
effective  data  rate  is  the  number  of  bits  of  useful  data 
that  was  sent  divided  by  the  total  elapsed  time  of  the  data 
transfer.   Data  transfers  between  INTELLEC  systems  were  not 
the  only  ones  that  showed  a  significant  improvement  over 
methods  that  were  previously  utilized.   Transfers  of  data  to 
and  from  the  VAX  11/780  were  also  accomplished  significantly 
faster  as  shown  in  Table  3.4. 

The  below  presented  data  shows  the  improved  performance 
of  data  transfers  when  the  Ethernet  network  is  employed. 
Lastly,  a  series  of  experiments  was  performed  to  investigate 
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the  performance  limits  of  lata  transmission  and  reception 
of  the  CP/M-30  based  programs.   The  conditions  of  the 


Table  3.4  Performance  Comparison  of  Transfers  Between 
VAX  11/780  and  INTELLEC  Systems 


{Software  Utilized  [File  Size  j  Time 


Lata  Rate(bps) 


!(VAI  to  INTELLEC)  j  (KBytes)   i(Min:Sec)  iMedium  [Effective 


IAPX  432  Pkg 

ETHERNET 

(To  disk  file) 


136 
136 


ETHERNET  136 

(To  memory  buffer) 


6:40 
2:05 

1:35 


9600    2720 
1PM      S7Z4 


10M 


11452 


experiments  were: 

1.  The  stop-and-wait  protocol  was  not  employed. 

2.  The  frames  would  be  sent  as  fast  as  possible  using  the 
minimum  amount  of  3080  Assembly  Language  code. 

3.  The  receiver  would  not  perform  any  extra  operations  on 
received  lata  other  than  that  done  by  the  NI3010.   No 
data  was  either  written  to  any  disk  files  or  displayed 
on  the  console. 

4.  Testing  was  done  on  data  block  sizes  of  128  and  1500 
bytes  per  ETHERNET  frame. 

Testing  was  performed  between  two  INTELLEC  systems  and 

and  data  was  collected  for  both  the  above  data  block  sizes. 

The  results  of  the  experiments  are  shown  in  Table  3.5. 

As  shown  below,  the  highest  data  rate  achieved  was  1.764 

Megabits  per  second.   The  time  taken  in  each  6.3  millisecond 

period  was  accounted  for  as  follows: 

1.2  msec   Actual  Data  Transmission  of  1500  Bytes 
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0.5  msec   Instruction  Execution  to  Restart  Transmit 

3.5  msec   DMA  Operation  cf  1500  Bytes  at  426  KBps  rate 

1.6  msec   Execution  Time  of  MI3010  Send  Command 


6.6  milliseconds  total 


Table  3.5  Maximum  Performance  Data 


'Data  Bytes  per  Frame  !  Frame  Transmission 


Interval 


Data  Rate   ! 
(Effective)  ! 


123 
1500 


2.7  Milliseconds 

6.8  Milliseconds 


379  Kbps 
1.764  Mbps 


The  conclusions  reached  about  the  Ethernet  performance 


were : 


The  transmission  speed  is  limited  by  the  NI3010 
controller  itself.   The  MI3010  Send  command  reauired 
longer  to  execute  than  either  the  actual  transmission 
time  of  the  data  or  the  instruction  execution  during 
each  transmit  cycle. 

Although  the  NI3010  literature  claims  a  DMA  data  rate 
of  1  MBps,  the  board  could  only  achieve  a  rate  of  423 
XBps.   This  limitation  could  be  due  to  the  method  in 
which  the  NI3012J  onboard  microprocessor  is  utilized. 
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IV.   CONCLUSIONS 

This  thesis  has  shown  that  functional  Local  Area  Network 
communication  software  can  be  structured  according  to  the 
ISO  OSI  network  model.   This  thesis  has  also  shown  that 
the  performance  of  the  Ethernet  substantially  reduces  the 
transfer  time  of  data  between  connected  hosts  when  compared 
to  methods  previously  employed.   The  single  to  double 
density  transfer  rate  improved  by  a  factor  of  7.5  while  the 
VAX  to  INTELLEC  transfer  rate  improved  by  a  factor  of  3.2. 
The  data  also  shows  that  effective  data  rates  can  be 
improved  by  faster  host  processors,  but  that  hosts  will  be 
limited  by  the  rate  at  which  the  NI3010  can  transfer  data 
to  and  from  host  memory  and  then  send  it.   INTELLEC  hosts 
are  also  limited  in  actual  network  use  by  the  rate  at  which 
data  can  written  to  or  read  from  disk  drives. 

An  improvement  to  the  effective  data  transmission  rate 
might  be  realized  by  synchronizing  the  speed  between  sending 
and  receiving  hosts  by  some  method  other  than  the  stop-ard- 
wait  protocol  utilized  in  this  thesis.   The  transmission 
rate  performance  degradation  noted  above  is  only  aggravated 
by  using  the  stop-and-wait  protocol. 

The  software  written  for  this  thesis  can  be  adapted  to 
run  on  an  Intel  S0S6  based  system  by  following  the  steps 
listed  below: 
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1.  The  PL/I-90  source  code  files  can  be  directly  compiled 
using  the  PL/I-96  compiler. 

2.  The  8080  Assembly  Language  source  code  can  either  be 
hand-translated  or  translated  by  software  such  as  the 
program  XLT-95  into  8086  Assembly  Language  source 
code.   It  should  be  noted  that  there  are  differences 
between  the  9080  and  9096  processors  that  have  to  io 
with  how  interrupts  are  handled  that  will  require  some 
rewriting  of  the  converted  code. 
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APPENDIX  A 
NI3010  COMMAND  LISTING 

Code(Hex)  !    Command  Function     !  Returned  Code(Hex 

01  Set  Module  Interface  00 
Loopback 

02  Set  Internal  Lookback  00 

03  Clear  Loopback:  00 

04  Set  Promiscuous  Mode  00 

05  Clear  Promiscuous  Mode  00 

06  Set  Receive  on  Error  00 
Mode 

07  Clear  Receive  on  Error  00 
Mode 


08 

Go  Offline 

00 

09 

Go  Online 

00 

0A 

Run  Onboard  Diagnostics 

Diagnostic  -Codes  as 
shown  in  Appendix  C 

ia 

Report/Reset  Statistics 

00 

19 

Report  Collision  Delays 

00 

2£ 

Load  Transmit  Data 

00,05 

29 

Load/Transmit/Send  Data 

00,01,03,05,06,08,03 

2A 

Load  Group  Addresses 

00,35,0A 

2B 

Delete  Group  Addresses 

00,05,0A 

3F 

Reset 

00 

Motes:  Promiscuous  Mode  receives  all  network  traffic. 
Receive  on  Error  receives  even  bad  frames. 


APPENDIX  B 
NI3010  REGISTER  LISTING 


Register 
Command 
Status( Conmand ) 
Transmit  Data 
Receive  Data 
S tatus( Interrupt ) 
Interruot  Enable 
Extended  Bus  Address 
Ei£h  Bus  Address 
Low  3us  Address 
Hish  Byte  Count 
Low  Bus  Address 


Location 
Base  Pert  Address 
Base  Port  Address+  01E 
Base  Port  Address*  02E 
Base  Port  Address*  03H 
Base  Port  Address*  05H 
Base  Port  Address^  0SH 
Base  Port  Address*  09H 
Base  Port  Address*  0AH 
3ase  Port  Address*  033 
Base  Port  Address*  0CE 
3ase  Port  Address*  0DH 


Note:  The  base  port  address  is  set  on  the  DIP  switch  onboard 
the  NI3010. 
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APPENDIX  C 

NI3010  STATUS  REGISTER  CODES 


1.  Normal  Mode: 

Code(Hex) 
00 

01 

02 
03 
04 

05 
06 

0e 

0A 

2.  Diagnostic  Mode: 

Code(Hex) 

00 

01 

02 
03 

04 

05 


Command  Status  Result 


Success 

Success  with  Retries 

Illegal  Command 

Inappropriate  Command 

Failure 

Buffer  Too  Large 

Era-Tie  Too  Small 

Excessive  Collisions 

Euffer  Alignment  Error 

Returned  Diagnostic  Result 


Success 

NM10  Microprocessor  Memory 
Checksum  Error 

NM10  DMA  Error 

Transmitter  Error 

Receiver  Error 

LooDback  Failure 


40 


APPENDIX  D 
TRANSMIT  DATA  FORMAT 


0 


BAR+  0 

-  1 

-  2 
+  3 
+  4 
+  5 
+  6 
+  7 
+  S 


3AR+ECR-1 


Destination  address  I.  (Byte  1) 

Destination  Address  B.  (Byte  2) 

Dest.  Addr.  C.  (Byte  3) 

Best.  Addr.  D.  (Byte  4) 

Dest.  Addr.  E.  (Byte  5) 

Dest.  Addr.  F.  (Byte  6) 

Type  Field  <?:0>  (Byte  1) 

Type  Field  <15:9>  (Byte  2) 
Data-First  Byte 


Data-Last  Byte 
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APPENDIX  E 
RECEIVE  DATA  FORMA' 


7 
i 

BAR+  0 

+  1 

+  2 

+  3 

+4-9 

+10-15 

-16 

+  17 

+  18 


0 


BAR+FRLTH+3 


Frame  Status 

Always  0 

Frame  Length 

<7:0> 

Frame  Length 

<15:8^ 

Desti 

.nation  Address (  6  Bytes) 

Sourc 

:e  Address  (  6 

Bytes ) 

Type 

Field  <7:3> 

Type 

Field  <15:3> 

Data- 

•First  3yte 

Data-Last  Byte 

CRC 

<24:31> 

CP.C 

<16:23> 

CRC 

<8:15> 

CRC 

<3:7> 

3AR+3CR-1 


Mote:  Frame  length  is  counted  from  first  destination  address 
byte  up  to  and  including  the  last  CP.C  byte  consecutively. 
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APPENDIX   F 
SOURCE    CODE    OF   PROGRAM   ETHTESTA.ASM 

$##*#*#*##**#**#****:£****####:*##  ####^ 

ETHERNET   LEVEL   ONE   TEST   PROGRAM — VERSION      1.13 

PROGRAM   FILE   NAME:    ETHTTSTA.COM-    INVOKE    COMMAND:    ETHTESTA 

PROGRAM   FUNCTION:(RUN    ON    9090    BASED   MDS    SYSTEM) 
COMMANDS  THE  NI3010  3CARD  TO  GO  ONLI NE, PERFORM  ITS' 
DIAGNOSTIC   TESTS    THEN    TRANSFERS    A   42    BYTE    DATA    BLOCK   FROM 
ADDRESS    060S   HEX   TO   ADDRESS    0912    HEX    VIA    TEE    MODULE    INTER- 
FACE   LOOPBACK  MODE.   TRANSFERRED  DATA  IS  THEN  DISLPATSD  ON 
THE    CONSOLE.      THESE   TESTS    ONLY   REQUIRE   THE   NI3010    BOARD. 
THE  CABLE  TO  THE  TRANSCEIVER  NEED  NOT  BE  CONNECTED. 

TESTS    PERFORMED: 

1.)    0N30OD   DIAGNOSTIC    SELF    TEST 

2.)  MODULE  INTERFACE  LOOPBACK  TEST-VERIFIES  THE 
FUNCTION   OF   THE   NI3010    LESS    THE   RECEIVE 
BUFFER . 

NI3010    ETHERNET    BOARD    CONFIGURATION: 

1.)    JUMPER    SET    TO    INTERRUPT    LEVEL    5 
2.)    BASE   PORT    ADDRESS    SWITCHES    SET    TO 

1011    (00B0H). 
3.)  PARALLEL  PRIORITY  TO  AN  ODD  NUMBERED 

MULTIBUS    SLOT. 

ORIGINAL   PROGRAM:    03/10/93 
LAST   REVISION:    04/30/83 
WRITER:    MARK    D.    STCTZE^. 
ADVISOR:    PROF.    U.R.    KODRES 

$*#####$##£#######*#*******************  *********^^^ 
*««>iejj£^*^v*  ^*s|!**  ******  ££s<:#£#*$*#######«#*s!:#^*  **£**##*  ******* 

MAIN  ?ROGRAM: 

ORG      1P0H 

J  NI3010  REGISTER  PORT  ADDRESSES: 
CREG        EOU      00B0FICMD  REG  LOCATION 
SREG                  EOU  00B1H;CMD   STATUS    REG    LOCATION 

ISREG       EOU      00B5H? INTERRUPT  STATUS  REG 


IEREG 

EOU 

EBAR 

EOU 

HBAR 

SOU 

LEAR 

EOU 

HBREG 

EOU 

LBREG 

EOU 

0ZB8H? INTERRUPT  ENA3LE  REG 
00B9Ht EXTENDED  BASE  ADDR  REG 
0eBAE;HIGH  BASE  ADDR  REG 

00BBh;low  base  addr  reg 

00BCH;HIGH  byte  count  REG 
00BDf;low  byte  count  reg 

jother  needed  addresses: 

bdos  eou    0005hjbdos  entry  point 

cereg  eou    0700hjcopy  of  interrupt  enable  reg 

lastm  eou    0900hjaddp  oe  init  stack  ptr 

j  needed  bdos  commands: 
consin    eou    01hjconsole  char  input 
consout   eou    02hj  console  chap.  output 
pstring   eou    09h;r>rint  text  string 

jclsar  command  status  register  3y  reading 

IN       SREG 

JLOAD  JUMP  INSTRUCTION  EOR  INTERRUPT  HANDLER:  (INT  5) 
MVI      Af0C3HJJMP  INST  COTE 
ST A     0028H  JLOAD  IT  IN  ADDR  3026  HEX 
LXI     H.INTHDL 
SHLD     0029H 


50UTPUT  INITIAL 

MESSAGE: 

LXI 

D.BMSG 

MVI 

C. PSTRING 

CALL 

BDOS 

CALL 

CRLE 

;SET  UP  INTERRUPT  CONTROL: 

MVI 

A.012H 

OUT 

0FDH 

MVI 

A,0DEH;  ENABLE  INTERRUPT  5-2THERNET  BOARD 

OUT 

0ECH 

•  #^#^#^^^^^^^*^**«^*#^«#*«^******;i:*^##*^#**^**3>***#^**#^c^*:*^: 

5LOAD  TRANSMIT  TATA  BLOCK-FIRST  3  BYTES  ASSIGNED  3Y  XEROX: 

MVI 

A.02H 

ST  A 

0^00* 

MVI 

A.07H 

ST  A 

0601H 

MVI 

Af01H 

ST  A 

0602H 

JLOAD  INTSRLAN  I 

ASSIGNED  L«ST  3  BYTES  HERE: 

DESTINE     CALL 

CRLE 

LXI 

D.DMSG0 

MVI 

C, PSTRING 

CALL 

BDOS 

CALL 

CRLE 

LXI 

D,DySGl 
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DADDR1 


DADDR2 


J  LOAD 

ADDIN 


J  NOTE 
J  0608- 

•  V  *,»  i-,'  *,•  - 

J  READ 


TYPE 


FOP. 


;ao  ONLINE 


MVI  CPSTRING 

CALL  3D0S 

CALL  CRLF 

LXI  D,DMSG2 

MVI  CPSTRING 

CALL  BDOS 

CALL  CRLF 

MVI  cconsin;ready  FOR  CHOICE 

CALL  BDCS 

CPI  31H 

JZ  DADDR2 

CPI  32H 

JZ  DADDR1 

CALL  CRLF 

LXI  D.DMSG3 

MVI  C.PSTPING 

CALL  BDOS 

CALL  CRLF 

JMP  DSSTIN? 

CALL  CRLF  ;IF  ADDR  00-03-EA  SELECTED  LOAD  IT: 

MVI  A.00H 

STA  0603H 

^VI  A.03H 

STA  0604H 

MVI  Af05AH 

STA  060  5H 

JMP  ADD  IN 

CALL  CRLF  ;IF  ADDR  00-04-0A  SELECTED  LOAD  IT: 

MVI  A.00E 

STA  0603H 

MVI  A, 04* 
STA  '  0604H 
MVI  A.0AH 
STA  0605H 
FIELD-  2  BYTES: 
MVI  A.00E 
STA  0606H 
MVI  At00H 
STA  0607H 
THIS  TEST  THE  ACTUAL  DATA  IS  IN  ADDRESSES 
TRANSMISSION 

T   D  A  T «  : 

CPSTRING 

D.FMSG 
BDOS 
CRLF 
CONIN 
CRL? 
POWER    UP: 
SP.LASTM 


T 
•0632HEX  FO 

IN  THE  TES 
MVI 
LXI 
CALL 
CALL 
CALL 
CALL 
UPON 
LXI 


4.S 


EI 

MVI 

A.09F?CMD  TO  GC  ONLINE 

OUT 

CREG 

LXI 

D,OLMSG 

MVI 

C .PSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

READ 

JRUN  ONBOARD  DIAGNOSTICS  TEST: 

MVI 

Af0AH;  CODE  EOR  SELF  TEST  COMMAND 

OUT 

CREG 

LXI 

D.STMSG 

MVI 

CPSTRING 

CALL 

3D0S 

CALL 

CRL? 

CALL 

RE*D 

JRUN  MODULE  I  NTS 

IRFACE  L0CP3ACE  TEST: 

MVI 

A.09F;  GO  BACK  ONLINE 

OUT 

CREG 

LXI 

D.OL^SG 

MVI 

CPSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

READ 

J  LOAD  INTERRUPT 

ENABLE  REGISTER=4.  SET  TO  RECEIVE  DATA. 

DI 

LXI 

H.CEREG 

MVI 

A,  04:1 

MOV 

M,A 

OUT 

IEREG 

EI 

;RUN  COMPLETE  MODUL?  LOO?  TEST: 

MVI 

A,01Ht  ENTER  MODULE  LOOP  TEST  MODE 

OUT 

CREG 

LXI 

D.MLMSG 

MVI 

CPSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

RE*D 

CALL 

trmsg;transmit  TEST  DATA  block 

LXI 

D.TRCMSG 

MVI 

CPSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

READ 

j  ^jjstfStfjjssjjtsssj^Kes^jjcsn*:  TEST  ONLY-MODULE  LOOPBACK  *********** 

;  THIS  PATCH  ENABLES  DATA  TRANSFER  TO  MOST  MEMORY  IN  TEST 

DI 

MVI 

A.07H 

LXI 

H.CEREG 

MOV 

M  ,  A 
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OUT  IFREG 

EI 

LOOP    TEST    MODE 


MVI 

A,03H;CLEAR 

OUT 

CREG 

LXI 

DfCLMSG 

MVI 

CPSTRING 

CALL 

3D0S 

CALL 

CRLF 

CALL 

READ 

JGO    BACK   ON-LINE 

MVI 

A,?9H 

OUT 

CREG 

LXI 

D.OLMSG 

MVI 

CPSTRING 

CALL 

EDOS 

CALL 

CRLF 

CALL 

READ 

J  DISPLAY   DATA    TR. 

INSFERBID    VIA 

MVI 

CPSTRING 

LXI 

D.LMSG 

CALL 

BDOS 

CALL 

CRLF 

CALL 

CONCUT 

JMP 

0        ;retur 

ETHERNET   BOARD    TO    CRT: 


JRETURN    TO    OPERATING    SYSTEM 
END   OF   MAIN    PROGRAM 

;£:Jcj£:p #£#;£;;:#  v ^  # £  ^  *  #  £  ^  #  =»=  *  # -1— I':!"!*  :'--:^^^c^  :;;#  i-.ifc  :|;  io::  £  ^s  ;:;###:;;:;;:&  ##;;t  jjt  #:,;;;:  j;:  -.;:;;x 

TRANSMIT    SUBROUTINE: 
TRMSG  DI 

;L0OP   UNTIL    INTERRUPT    ENABLE   REGISTER    =0    OR    4: 
LOOP  LXI  H.CFREG    ;    CHECK    IF   NI3010    BUSY 


CONT  DI  JDISABLS    INTS.    AND    CHECK    AGAIN 


CONT1 


LXI 

H.CFREG    ;    CHECK    IF   NI3010 

MOV 

A,M 

CPI 

00H 

JZ 

CONT 

CPI 

2AE 

JZ 

CONT 

EI 

JM? 

LOO? 

DI 

JDISABLS    INTS.    AN 

LXI 

H,CEREG 

MOV 

A,M 

CPI 

00H 

JZ 

CONT1 

CPI 

04H 

JZ 

CONT1 

EI 

JMP 

LOO? 

MVI 

A.00H 

LXI 

H,CE?EG;    DISABLE   THE    NI3 

MOV 

M  .  A 

INTERRUPTS 
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OUT 

IEEEGJ  SET  INTERRUPT  ENABLE  REG  =  I 

EI 

ADDR1 

EOU 

00H;  LOCATION  CE  TRANSMIT  DATA  STAR?  = 

ADDR2 

EOU 

06H;  600  EEX 

ADDF3 

EOU 

00H 

MVI 

A.ADFRi;  LOAD  TRANSMIT  MESSAGE  1ST  ADDR 

CUT 

EBAR 

MVI 

A ,ADDR2 

OUT 

EBAR 

MVI 

A, A DDR 3 

OUT 

LEAR 

MVI 

a.00h;load  byte  count 

OUT 

H3REG 

MVI 

A.032H 

OUT 

L3REG 

DI 

MVI 

A.06H;  ENABLE  NI3010  TDD  INTERRUPT 

LXI 

H.CEREG 

MOV 

M,A 

CUT 

IEREG 

EI 

DONE 

MOV 

A,M;  READ  THE  COPY  OF  IERSG=CEREG 

CPI 

06H 

JZ 

DONS 

TSST3 

MVI 

A,029E;  LOAD  TRANSMIT  AND  SEND  COMMAND 

OUT 

CREG 

RET 

;end  t 

RANSMIT  SU 

3RCUTINE 

'   *^tX'#'!! 

i^**^***********^*****^******^^**^**^***^******^^*^^*^^ 

;read 

STATUS  SUB 

ROUTINE: 

READ 

MVI 

B.11111112B 

MVI 

C.00H 

RDLP 

IN 

ISREG 

OP  A 

5 

CPI 

00EEH 

JNZ 

RDLPJCONTINUE  LOO?  UNTIL  STATUS  REG  READ 

IN 

SREG 

CMP 

C 

JNZ 

EFMSG 

LXI 

D,MSG 

MVI 

C.09E 

CALL 

3D0S 

CALL 

CELT 

JMP 

RDONE 

EFMSG 

LXI 

D,NMSG 

MVI 

C,09H 

JMP 

BDOS 

CALL 

CRLF 

RDONE 

RET 

;SND    READ   SUBROUTINE: 


■      -A.  »*#  *•*   <UU  .J*   *.•*  «■*   igU  OU   »J-    «L»  *JU    *J*  ub   %Jr    ~s   ■  -J*   -—    »*-»   -. '  »   a.1*  »■*  >'r  *>   «W  %A*  «'  •   'JU  «J<   »'-    -■*»  -.'r     »V   -  «^       ''  -•»   »'*   »J**V   »**   »'*   -'-   »'*■  ■»*■■    »•*  «V   °1-   *•*   ■"■'"-   **  ■   *1*'   'J*    *"  -  ***  -■»   '**   -*    »'*  V* 
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JINTERRUPT  HANDLER: 
JSAVE  CPU  ST«TE: 
INTHDL     EI 

PUSH  P5W 

PUSH  E 

PUSH  D 

PUSH  H 

DI 

lxi  *,cereg 

mcv  b,m;  save  enable  register  copy  value 

lxi  h. ceres;  disable  ni3010  ints. 

cut  iereg 

MOV  M,A 

MOV  A,  3 

MVI  B.04H;  IS  RBA  INTERRUPT  ENABLED? 

CM?  B 

JZ  RBA 

MVI  B,0?H;  IS  RDD  INTERRUPT  ENABLED? 

CM?  B 

JZ  RDD 

MVI  A.04H;    IE   NEITHER    OE    ABOVE    THEN    WAS    TDD 

LXI  H,CEREGT    ENABLE   RBA    INTERRUPT 

MOV  M,A 

OUT  IEPEG- 

JMP  FIN  I 

RADD1       ECU  00H;  1ST  ADDR  TO  WRITE  RECVD  ERAME  TO= 

PADD2      ECU  09H;  0800  HEX 

RADD3      EOU  00H 

RBA        MVI  A.RADDi;  LOAD  THE  ADDRESS  REGISTERS 

OUT  EBAP 

MVI  A.RADD2 

CUT  HBAR 

MVI  A,R*DD3 

OUT  LBAR 

MVI  A,00H;  NOW  LOAD  BYTE  COUNT  REGISTERS 

OUT  HBREG 

MVI  A,040H 

OUT  LB REG 

LXI  H  CEREG 

MVI  a!07H?  ENABLE  RDD  INTERRUPT 

MO  V  I" .  A 

CUT  IEREG 

JMP  FINI 

RDD        LXI  H.CEDEG 

MVI  A.04H 
JRECEIVE  PROCESS  tf*KE  UP  IN  HERE 

MCV  M,A 

OUT  IEREG 
EINI        EI 
; RES  TORE  CPU  STATE: 
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PO?  H 

POP  D 

PC?  3 

DI 

MVI  A.020H;    RESTORE    INTERRUPT    STATUS 

OUT  0FDH 

PO?  PSW 

EI 

RET 

;end  interrupt  eandle? 


CELF 

MVI 

CCONSOUT;    GENERATES    CARRIAGE    RTN    -LINE 

MVI 

E,0DH 

CALL 

BDOS 

MVI 

CCONSOUT 

MVI 

E.0AH 

CALL 
RET 

■A*  »•*  »V  V*  *V  *** 

*r  *P  i*  **•  ^r  **** 

BDOS 

#  . '-  +t*  *a#  «u  «j*  *i»  y*  -<*  •>■« 

^**^**^**i^^^*^#3js^t^#^s#jj:^^sje-«-s^:--^e#}jt5?^;j?^5!c^-#^-tsje^5? 

CCNIN 

LXI 

E.06P8H;    READ    TEST    DATA    INPUT    FROM    CONSO 

INLP 

MVI 

C. CONS  IN 

PUSE 

E 

CALL 

3D0S 

PO? 

H 

mo  7 

M.  \ 

CPI 

60HJ COMPARE    TC    GRAVE    ACCENT 

RZ 

INX 

H 

JM? 

INLP 

•  3^  x;  tx  zX  ^x  xc  3£  ;£  3fc  ?t  rr  :2c  zx  is  « 

*f~  ^l»  •T™  "J*  "T*  *1*  "T"  *T^  T  *T"  "V*  "T*  T*  T"  "T^ 

#X###1£#l£##TZ#&#}£&#*#zi7£**^##&##&#&X?fi#X#^7Z#^7Zr,t?fi 

CONOUT 

LXI 

H.0812E;    OUTPUT    TEST    DATA   TO   TEE   CONSOLE 

OTL? 

MVI 

CCONSOUT 

MOV 

E.M 

MOV 

A,E 

CPI 

RZ 

PUSH 

60RJIE   GPAVE    ACCENT    TEEN    RETURN 

H 

CALL 

BDOS 

POP 

E 

INX 

E 

JM? 

OTL? 

J  ^tsjs^X:******^**** 

^ci^^rj^r^^^^tjfc^^c^s^c^^^c^s^fi^c^^c  ^:  V-(*  ^r  't  *r  'r^  ^v  ■*£  ^  '£  ^  n?  i^3^  ^r-^Z  ^V  ^  #  'i* 

3MSG 

DB 

'ETHERNET   LEVEL    ONE   TEST    PROGRAM:    VERS' 

DB 

'ION:    1.13:    04/30/S3-MD3$ ' 

OLMSG 

D3 

'ONLINE    COMMAND    ISSUEDS' 

STMSG 

DB 

'SELF    TEST    COMMAND    ISSUED$' 

MLMSG 

DB 

'"ODULE    LCOPBACX    COMMAND    ISSUSD$' 

CLMSG 

LB 

'CLEAR   LOOPBACK    COMMAND    ISSUEDS' 

TRCMSG 

DB 

'TRANSMIT/SEND    COMMMD    ISSUEDS  ' 

ms  a 

DB 

'COMMAND    EXECUTEDS  ' 

NMSG 

DB 

'COMMAND    FAILEDS' 
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'SNT£R  TEXT (42  CHAR  MAX)  TOR  MODULE' 
'INTERFACE  LC0?BACK(42  CHAR  MAX) 

(END    WITH   A    GRAVE    ACCENT-)    *)$' 
'THE  DATA  TRANSFERRED  VIA  MODULE  INTER' 
'FACE   LOOPEACE    IS:$' 
'ENTER  ADDRESS  CF  INSTALLED  NI3010' 
'    BOARDS' 

'BOARD  00-F4-0A :FNTER  1  "$' 
'BOARD  00-03-EA:ENTER  "  2  "$' 
'INCORRECT    SELECTION-TRY   AGAIN :$' 

j  j^sfcjjcsjes^SetfjJssC;  ##******************#********************  ******** 

ENDiETEERNET    LEVEL   ONE    TEST    PROGRAM-VERSION    1.13 


FMSG 

D3 

T3 

DB 

LMSG 

DB 

DB 

DMSG0 

DB 

DB 

DMSG1 

DB 

DMSG2 

DB 

DMSG3 

DB 
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APPENDIX  G 

SOURCE  CODE  OF  PROGRAM  ETHTESTB.ASM 


ETHERNET  SECCND  LEVEL  TEST  PROGRAM — VERSION   2.04 

PROGRAM  FILE  NAME:  ETHTESTB.COM-  INVOKE  COMMAND:  ETHTESTB 

PROGRAM  FUNCTION:(RUN  ON  P080  BASED  MDS  SYSTEM) 
SELF  TEST. IT  THEN  TRANSFERS  A  4:2-BYTE  BLOCK  OF  TEXT  FROM  A 
BLOCK  OF  MEMORY  STARTING  AT  ADDRESS  0700  HEX  TO  ANOTHER 
BLOCK  AT  0900  HEX  IN  TWO  SEPARATE  TESTS  VIA  THE  N 13010 
BOARD.   SUCCESSFUL  COMPLETION  OF  THESE  TESTS  VERIFIES  THE 
FUNCTIONING  CF  ALL  THE  HARDWARE  NECESSARY  TO  COMMUNICATE 
WITH  OTHER  HOSTS  ON  THE  NETWORK. 

TESTS  PERFORMED: 

1.)  BOARD  DIAGNOSTIC  SELF  TEST 

2.)  MODULE  INTERFACE  LOOPBACK-VERI FIES  THE 

FUNCTIONING  OF  THE  NI3010  BOARD  INCLUDING  THE 

NM10  PROTOCOL  MODULE. 
3.)  EXTERNAL  LCOPBACK-VERIFIES  THE  FUNCTIONING  OF 

ABOVE  AND  THE  FLAT  CABLE, TRANSCEIVER  AND 

NETWORK  COAXIAL  CABLE. 

NI3010  ETHERNET  BOARD  CONFIGURATION: 

1.)  JUMPER  SET  TO  INTERRUPT  LEVEL  5. 
2.)  BASE  PORT  ADDRESS  SWITCHES  SET  TO 

1011  (00B0H). 
3.)  PARALLEL  PRIORITY  TO  AN  ODD  NUMBERED 

MULTIBUS  SL^T. 

ORIGINAL  PROGRAM:  03/31/83 
LAST  REVISION:  04/30/B3 
WRITER:  MARK  D.  STOTZER 
ADVISOR:  PROF.  U.R.  KCTRES 

MAIN  PROGRAM: 

ORG     100H 
J  NI3010  REGISTER  PORT  ADDRESSES: 
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CREG 

SREG 

ISRSG 

IEF.EG 

SBAR 

HBAP 

LBAR 

H3REG 

LBRSG 

J  #*#££* 

J  OTHER 
BDOS 
CEFEG 
STATUS 

j  ##*#$# 

; NEEDED 
PSTRIMG 

CONSIN 

CCNSOUT 


EOU 
SOU 
EOU 
EOU 
EOU 
ECU 
EOU 
EOU 
EOU 

.'-  .  t,  -J.    J-  U,  *»*  Urn  Ug  4m   -', 

*t*  *r  *r  t*  t*  ***  ^*  *r  *t*  "f 

NEEDED   ADD 
EOU 
EOU 
EOU 

BDO 


30B0H 
0031^ 
00B5H 
00B8F 
00B9H 
00BA* 
00BBF 
00BCH 
0P^DH 


CMD  STAT 
INTERRUP 
INTERRUP 
EXTENDED 
HIGH  3 AS 
LOW  BASE 
HIGH  BYT 
LOW   BYTE 


S    COMM 
SOU 

EOU 
ECU 

#  ,u  «J*  »*-  »•*  *'*  »**  »<*  »'-  %*£  -  'j.  %^  s/#  >**  V^  *V  *** 

•  -  -  *r  Ji *  *\» *<•  «\* **»  *r  *»4  «v  *r"v  y«r*p  * (* 


^«  3(;  ^c  :Jc  ^  r^  ^s  s}c  3^  ^c  ^c  5js  sis  3{;  ^e  3^e 

RESSES: 

0005h;bdos  ent 

0900H;COPY  of 

0601h;co?y  o? 

#  #  #  #  #  #  ?;-  *  #  #  *  #  #  Sr  £  # 

ANDS: 

09HJ  PRINT   STR 

01H;  CONSOLE  c 

02HJ  CONSOLE  C 


LOCATION 
US  REG  LOCATION 
T  STATUS  REG 
T  ENABLE  REG 

BASE  A DDR  REG 
E  ADDR  REG 

ADDR   REG 
E  COUNT  REG 

COUNT  FEG 

RY  POINT 

INTERRUPT  ENABLE  REG 

CMD    STATUS    REG 

#  #  #  sfc  #.  $  #  #  a(s  :£#  :{:  *  #  *  3jc  s£  #  #  #  s£  :£  jJ:  $  £  s*  * 

ING   FUNCTION 

HAP  INPUT  FUNCTION 

FAR  OUTPUT  FUNCTION 

*:  #  ^  ^  #  ^  :;:  #  ^  £  X-  *'  ^  3?  :?  =1*  =K  #  #  ~  ^  'X  s?  ::=  *£  =S  :£ 

JRSAD   CMD   STATUS    REG    ON    POWER   UP:REOUIRED   FOR    INITIALIZATION 
IN       SREG 

; OUTPUT    INITIAL  MESSAGE   TO   USER: 
LXI  D,BMSG 

MYI      CPSTPING 
CALL  BDOS 

CALL  CPLF 

JLOAD   JUMP    INSTRUCTION    FOR    INTERRUPT   HANDLER:    (INT    5) 

MVI  A.0C3HJJM;3  INST  CODS 

ST  A  002PTJ  JLOAD  IT  IN  ADDR  0028  HEX 

LXI  H,INTHDL 

SHLD  0029H 

JSET   UP    INTERRUPT  CONTROL:    (INT    5) 

MVI  A,012H 

CUT  0FDH 

MVI  A,0DFHJ    ENABLE    INTERRUPT    5-3THER.NET    30ARE 

OUT  0FCH 

JLCAD  TRANSMIT  DAT*  BLOCS-FIRST  3  BYTES  ASSIGNED  BY  XEROX: 


MVI 

A.02H 

STA 

070  0H 

MVI 

A.07H 

STA 

070  1H 

MVI 

A.01H 

STA 

0702? 

JLOAD  INTERLAN  ASSIGNED  LAST  3  BYTES 

DESTIN?  CALL  CPLF 

LXI      D,DMSG0J  ASK  USER 
MVI      CPSTPING 


HERE: 

TO  INPUT  THIS  ADDRESS 
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CALL 

bdos 

CALL 

CRLF 

LXI 

D.DMSGl 

MVI 

C.PSTPIMG 

CALL 

BDOS 

CALL 

CRLF 

LXI 

D.DMSG-2 

MVI 

CPSTRING 

CALL 

EDOS 

CALL 

CELF 

MVI 

C.CONSIN1READ  USER    INPUT   OF   ADDRESS 

CALL 

BDOS 

CPI 

31H 

JZ 

DADDR2 

CPI 

32H 

JZ 

DADDR1 

CALL 

CRLF 

LXI 

D,DMSG3 

MVI 

CPSTRING 

CALL 

BDOS 

CALL 

CRLF 

JMP 

DESTINP 

DADDR1             CALL 

CRLF:    ADDR   00-03-EA   SELECTED   BY    USSR: LOAD 

MVI 

A,00H 

ST  A 

0703^ 

MVI 

A.03H 

STA 

0704H 

MVI 

A.0EAE 

STA 

0705u 

JM? 

A3DDIN 

DADDR2             CALL 

CPL7;    ADDRESS    00-04-0A   S ELECTED  :L0 *D    IT 

MVI 

A.00H 

STA 

0703u 

MVI 

A .  04H 

STA 

0734H 

MVI 

A.0AH 

STA 

0705P 

;LOAD   TYPE   FISLD- 

2    BYTES: 

ADDIN               MVI 

A.20H 

STA 

06?6H 

MVI 

A.00H 

STA 

0607H 

;nots:for  this  ts: 

ST    TnE    ACTUAL    DATA    IS    IN    ADDRESSES 

;060S-0632HEX    FOR 

TRANSMISSION 

j  j)c^e«j}e^s!s*^j«e*-:^^sj:3j:5j:: 

yi  iJC  -,»  *l|i  off  *X   i,C  ifi    *,J  Afi  ^y.   3JC  of*  5JC  «y*  "l*  *r*  *f*  *P  *?  *T*  ***  T~  ■f*  *l*  *!*  *T*  *t*  «fl"  *f*  *Y*  *?  *1*  ***  "Y*  *T*  *T*  *T*  *|*  't*  1*  *»*  *f 

iREAD    IN    THE   TEST 

DATA   FOR    MODULE    INTERFACE    L00P3ACK    TEST: 

MVI 

CPSTRING 

LXI 

D.FMSG 

C  A  jj.u 

3D0S 

CALL 

CRLF 

CALL 

CON  IN 
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CALL 

CRLF 

NLINE 

UPON 
EI 

PO! 

VEC  UP: 

MVI 

A.09E; 

OUT 

CREG 

CALL 

READ 

;go 

EI 

ONLINE 


JEUN  ONBOARD  DIAGNOSTICS  TEST: 

MVI      A.0AHS  CODE  FOR  SELF  TEST  COMMAND 
OUT      CFEG 
CALL     READ 

;RUN  MODULE  INTERFACE  LOOPBACK  TEST: 

MVI  A.09H?  GO  B«C£  ONLINE 

CUT  CREG 

CALL  READ 

JLOAD  INTERRUPT  ENABLE  REGISTEF=4.  SET  TO  RECEIVE  DATA. 

DI 

LXI  H.CEREG 

MVI  A.04H 

MOV  M.A 

OUT  IEREG 

EI 

JCCMMAND  MODULE  INTERFACE  LOOPBACK  MODE: 

MVI  A.02H 

OUT  CREG 

CALL  READ 
TRANSFER  THE  TEST  DATA: 

CALL  TRMSG 

CALL  READ 
JDISPLAY  DATA  TRANSFERRED  BY  MODULE  INTERFACE  L00P3ACI  TEST: 

MVI  C.PSTRING 

LXI  D,LMSG 

CALL  3D0S 

CALL  C?LV 

CALL  CCNCUT;  TEXT  OUTPUT  TO  THE  CONSOLE 

CALL  C"LE 

;PEF.FORM  INTERNAL  LOCPB.»C?  TEST: 

JREAD  IN  TEST  DATA  FOR  EXTERNAL  LOOPBACK  TEST: 

MVI  C.PSTRING 

LXI  D.FEMSG 

CALL  BDOS 

CALL  CRLF 

CALL  CONIN 

C £ LL  C^LF 
JEXIT  INTERNAL  LOOP^TEST  "CDF: 

MVI  Af03F 

OUT  CREG 

CALL  READ 
JGO  BACK  ONLINE: 


cs 


MVI  A,09H 

OUT  CREG 

CA  LL  R"71  AD 

{TRANSMIT   THE   TEST  TATA: 

CALL  TRMSG 

CALL  READ 
JDISPLAY    DATA    TRANSFERRED    VIA    INTERNAL   L00P3ACK    TO    CRT: 

MVI  CPSTRING 

LXI  D,LEMSG 

CALL  BrOS 

CALL  CRLF 

CALL  CCNOUT 

call  crlf 

jm?  0        ; return  to  opepating  system 
end  ce  main  program 

-Y-  Ml  "T*  ^"  *>•  *¥*  *l»  ***  ^T*  *T*  *i*  *^  *t*  *•*  "**  *P"  *T*  *^H  *P  A*  **P  *^  *P  *T*  <S*  *H  ■(*  T*  "H"  T*  •!*  *l*  T*  *t^  **•'*  *1*  *T*  *t*  *»*  "»*  *l*  "§■  *t*  1*  ^*  *»*  #f"  1*  T*  *l*  *t*  *t*  *<*  ^*  *V*  »|*  *l*  *i»  ■ 
—  V*  -'  >^  Vr-  -'-  »*-  *-'«•  V'  -V   *  *"c  *-*■*  V*  r  ■*  ■»**  i*-  *"'  ***  ^**  *■**  *V  ***  KV  ***  ***  *i"  -'*  *V  s1*  »V  ***  *•*  -V  -t*  *•**  **•  -V  •**  *■'*  ^'  ***  *V  -V  V-*  «V  J'  V*  V*  *■'  •  -"'*  J-  -'—  *•'■*  -'r  *-■»  -'*  -  -  * 

¥¥3r»rfl'',i*TT'¥,T  t* *<*  ^  **  *r  *.•* *x*  n*  *r*  *r  i*  *i*  *i*  •v*  *•*  *i*  t»  *<*  *i*  5i*  *? n-  't-  *?  *r  *»*  *r»  ^p »r  **■*  "»*  *»*  *?  n*  n*  *r  *r«  ^i*  *^  as -i*  *■*  sp  *i>  n6  •'i*  *f  *?>  * 

TRANSMIT    SUBROUTINE: 
TRMSG  DI 

JLCOP    UNTIL    INTERRUPT    ENABLE    REGISTER    =0    CR    4 : 

LOO?  LXI  H.CEREG 

MOV  A,M 

CPI  00H 

JZ  CONT 

CPI  04R 

JZ  CCNT 

EI 

JM?  LOOP 
CCNT                  DI 

LXI  H.CEREG 

MOV  A,M 

CPI  00H 

JZ  CCNT1 

CPI  04H 

JZ  CCNT1 

EI 

JMP  LOOP 

CONT1  MVI  »,00H 

LXI  H.CERES 

MOV  M,A 

OUT  IEREG?    SET    INTERRUPT    ENA3LE   REG    =    0 

EI 

ADDR1  ECU  00H;    LOCATION    OF    TRANSMIT    3UFFER    TO? 

ADER2  EOU  0?H 

ADDB3  EOU  00H 

MVI  A,ADDR1J    LO * D    TRANSMIT    MESSAGE    1ST    ADDR . 

CUT  EBAR 

MVI  A.ADDR2 

OUT  EBAR 

MVI  A.ADDR3 

CUT  LB5?. 


MVI  A,00H;LOAIJ  BYTE  COUNT 

OUT  HBREG 

MVI  A,032E 

OUT  LBREG 

DI 

MVI  A.06H;  ENABLE  TDD  INTERRUPT 

LXI  H,CERSG 

MOV  M,A 

OUT  IEREG 

EI 

DONE       LXI  H,CEREG 

MOV  A,MJ  READ  TFE  COPY  OF  IEREG=CEREG 

CPI  06H 

JZ  DONE 

TSST3       MVI  Af0293j  LOAD  TRANSMIT  AND  SEND  COMMAND 

OUT  CREG 

RET 
JEND  TRANSMIT  SUBROUTINE 

5READ  STATUS  SUBROUTINE: 

READ        MVI  B.11111110B 

MVI  C.00H 

RDLP        IN  ISREG 

OR  A  B 

C?I  2"*??H 

JNZ  RDLPJCONTINUE  LOOP  UNTIL  STAT  REG  READY 

IN  SB  EG 

LXI  H, STATUS:  £EE?  COPY  OE  CMD  STAT  REG 

MOV  M,A 

CMP  C 

JNZ  ERMSG 

LXI  D.MSG 

MVI  CPSTRING 

CALL  BDOS 

CALL  CRL? 

JMP  RDONE 

ERMSG      LXI  D.NMSG 

MVI  CPSTRING 

CALL  BDOS 

MVI  B.?5FH 

LXI  E, STATUS 

MO  V  A  ,  M 

ADD  3 

MVI  CCONSOUT  J  ERROR  CODE  TO  CONSOLE 

MOV  E,A 

CALL  BDOS 

CALL  CRLE 

LXI  D.NMSG1 

MVI  CPSTRING 

CALL  BDOS 

CALL  CRLE 
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RDONS      RET 

;END  READ  SUBROUTINE: 

; INTERRUPT  HANDLER: 

JSAVE  CPU  STATE: 

INTHDL     SI 

PUSH    PSW 
PUSH    3 


PUSH  D 

PUSH  H 

DI 

IX I  H 


—  t 


MOV  B,M;  SAYS  ENABLE  REGISTER  COPY  VALUE 

MVI  A.00E?  DISABLE  NI3010  INTERRUPTS 

LXI  H.CEREG 

MO  7  M , A 

OUT  IEREG 

MOV  A.B 

MVI  R.04H;  WAS  ?.BA  INTERRUPT  ENABLED? 

CMP  3 

JZ  RB  A 

MVI  B,0?HJ    WAS    HDD    INTERRUPT   ENABLED? 

CMP  B 

JZ  HDD 

MVI  4.04H;  I?  NEITHER  OF  THE  ABOVE  THEN 

LXI  H.CEREG;  WAS  TDD-  NCW  ENABLE  R3A  AG*  IN 

MOV  M,A 

CUT  IEREG 

JMP  EINI 

RADD1      ECU  ?0H:  LOCATION  0"?  *'HERE  TO  WRITE  RECVD 

RADD2       SOU  09H;  FRAME  DATA  IN  HOST  MEMORY 

RADD3      ECU  00H 

REA        MVI  A.RADDIJ  NOW  LOAD  ADDR  INTO  ADDR  REGS. 

OUT  13 AR 

MVI  A.RADD2 

CUT  EBAR 

MVI  A,RADD3 

OUT  LBA^3 

MVI  A.00H;  LOAD  BYTE  COUNT  REGISTERS 

OUT  HBRFG 

MVI  A.040E 

OUT  LB REG 

LXI  H.CEREG 

MVI  A,0?H5  ENABLE  RDD  INTERRUPT 

MOV  M.A 

CUT  IERTG 

JMP  FINI 

RDD        LXI  H.CEREG 

MVI  A.04H 
•RECEIVE  PROCESS  WAKE  UP  IN  HERE 

MOV  M.A 
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OUT  IEREG 
FINI       EI 
JRESTORE  CPU  STATE: 

POP  H 

POP  D 

POP  B 

DI 

MVI  A.020H;  RESTORE  INTERRUPT  STATUS 

OUT  0FDE 

POP  PSW 

EI 

RET 
ISND  INTERRUPT  H ANTLER 

CF.LF        MVI  CCONSOUT;  GENERATES  CARRIAGE  RTN  +LFEED 

MVI  F,0rH 

CALL  BDOS 

MVI  C.CONSCUT 

MVI  3,0 AH 

CALL  BDOS 
RET 

CONIN       LJCI  H,0708H?  READ  TEST  DATA  INPUT  FROM  CONS. 

INLP        MVI  C.CONSIN 

PUSH  H 

CALL  BDOS 

POP  H 

MOV  M,A 

CPI  60H;iF  GRAVE  ACCENT  THEN  RETURN 

R2 

INX  H 

JMP  INLP 

CONOUT     LXI  H,0912H;  OUTPUT  TEST  TATA  TO  THE  CONSOLE 

CTL?       MVI  CCONSOUT 

MOV  E,M 

MOV  A,E 

CPI  £0H;TEST  FOR  END  CHAR-GRAVE  ACCENT 

RZ 

PUSE  H 

CALL  BDOS 

POP  H 

INX  H 

JMP  CTLP 

BMSG        DB  'ETHERNET  SECOND  LEVEL  TEST  PROGRAM:' 

DB  '  VEPSIOM  2.04:  04/30/83-MDS5 ' 

DMSG0      DB  'ENTER  ADDRESS  OF  INSTALLED  NI3010  ' 

DB  'BO*?D:  £' 

DMSG1       DB  'BOARD  00-04-0A :ENTER    1  "$' 

DMSG2       D3  'BOARD  00-03-EA :ENTER  "  2  "$' 
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DMSG3      D3  'INCORRECT  SELECTION  NUMBER-TRY  AGAIN:$ 

MSG        DB  'EXECUTING  BOARD  COMMAND $' 

NMSG       DB  'COMMAND  FAILED-ERROR  CODE:$' 

NMSG1      DB  'FOR  INTERPRETATION  OF  ERROR  CODES-SEE' 

DB  'ASM  LISTING  FILS$' 

FMSG        DB  'ENTER  TEXT (42  CHAR  MAX)  FOR  MODULE' 

DB  '  INTERFACE  LOOPBACK  TEST: 

DB 

DB  '(END  STRING  WITH  A  GRAVE  ACCENT  =  >  x )  <>  ' 

FEMSG      DB  'ENTER  TEXT (42  CHAR  max)  FOR  INTERNAL' 

DB  '  LOOPBACK  TEST: 

DB 

DB  '(END  STRING  WITH  A  GRAVE  ACCSNT=>  %)$' 

LMSG       DE  'THE  DATA  TRANSFERRED  3Y  MODULE' 

DB  '  INTERFACE  LOOPBACK  IS  :$  ' 

LEMSG       DB  'THE  DATA  TRANSFERRED  BY  INTERNAL' 

DB  '  LOOPBACK  IS  :$' 

ERROR  CODES: (IN  RESPONSE  TO  TRANSMISSION  COMMAND  FAILURES) 
LETTER       !     NATURE  OF  FAILURE 


S  YOU  ISSUED  AN  INAPPROPRIATE  COM 

MODE  THE  BOARD  IS  IN. 

T  BOARD  TIMER  TIMED  CUT-POSSIBLE 

PROBLEM. 

U  TRANSMIT  BUFFER  SIZE  EXCEEDED:! 

7  FRAME  SENT  TO  BOARD  TOO  SMALL:( 

X  EXCESSIVE  COLLISIONS 

ENDJETHERNET  SECOND  LEVEL  TEST  PROGRAM-VERSION  2. 
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APPENDIX  H 
SOURCE  CODE  OF  MAIN  MODULE  ETHERNET. PII 

ETH3RNST:/*MAIN  MODULE-APPLICATION  LAYER-ISO  LEVEL  ?*/ 
PROCEDURE  OPTIONS  (MAIN); 

DECLARE 

/*  LOCAL  VARIABLES  */ 

COUNT?    FIXED  PI  NARY (7 ) , /*LOO?  CONTROL  VARIABLE-/ 

COUNT7A   FIXED  BINARY (7 ) ,/*LOOP  CONTROL*/ 
C0UNT7B   FIXED  BINARY (7 ) , /*LOOP  CONTROL*/ 

COUNT7C   FIXED  EINARY (7 ) , /*LCCP  CONTROL*/ 

DSKNO     CHARACTER(l) ,/*USER  INPUT  DISK  NUMBER*/ 

FRAMD     CHARACTER (1),/*USER  INPUT  FRAME  SIZE*/ 

SELECT    CHARACTER(1),/*USER  INPUT  MODE  SELECTION*/ 

/*  GLOBAL  VARIABLES  */ 

RECFIL    FIXED  BINARY(7)  EXTERNAL ,/*RECVD  FILE  NO.*/ 

FRSIZS    FIXED  BINARY(15)  EXTERN AL , /*FRAME  SIZE*/ 

VTERM     FIXED  BINARY(7)  EXTERNAL ,/*TERMINAL  FLAG*/ 

TRMODE    FIXED  BINARY(7)  EXTERNAL ,/*CMD  MODE  FLAG*/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

TXBU?F(1508)  FIXED  BINARY  (7)  EXTERN  AL  ,/*TRAN5  BUFF*/ 

RX3UFF(1522)  FIXED  BINARY (7)  EXTERNAL ,/*RECV  BUFF*/ 

TXT3UF  (123)  FIXED  BINARY (7)  EXTERNAL , /*TEXT  BUFF*/ 

1  RXFCB  EXTERNAL, /*RECEIVE  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY(7), 

2  FNAME  CHARACTER (8), 

2  FTYPE  CHARACTER (3), 

2  RFCB(24)  FIXED  BINARY(7)f 
1  TXFCB  EXTERNAL,  /""TRANSMIT  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY(7), 

2  FNAME  CHARACTERS), 

2  FTYPE  CHARACTERS), 

2  TFCESi)  FIXED  31  NARY  (7), 
/*  EXTERNAL  MODULES  */ 

INIT     ENTRY,/*  INITIALIZES  INTERRUPTS  &  NI3010*/ 
SENDATA   ENTRY,/*  TRANSMIT  ISO  LEVEL  6  MODULE  */ 
RECEIVE   ENTRY;/*  RECEIVE  MODULE  */ 

/*LAST  REVISION:  09/15/93-09e0  ORIGINAL  PROGRAM :07/29/83  */ 
/♦AUTHOR:  CAPT.  MARK  D.  STOTZER-USMC-AEGIS  GROUP  */ 
/*THESIS  ADVISOR:  PROFESSOR  UNO  R.  KCDRES-COMP.  SCIENCE   */ 

PUT  SKI?  LIST  ( '*************~****~***JJ::i:t:,c*:!:*t:******:is*;)t*:*:***  ' )  ; 

PUT  SKI?  LIST ( 'ETHERNET  COMMUNICATION  PROGRAM-VERSION  5.0'); 
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)  » 


PUT  SKIP  LIST ('ALLOWS  THIS  HOST  TO  CONNECT  TO  TEE  NET.'); 

PUT  SKIP  LIST( 'CNTL-H-BACKSPACE  FOR  TEXT  ENTRIES:'); 

PUT  SKIP  t^isT  ( '****************************^***********i* 

PUT  SKIP(2)J 

RECFIL=47J 

COUNT7=i; 

TO  WHILE  v'CCUNT7  =  l); 

C0UNT7A=1J 

DO  WHILE(COUNT7A=l); 

put  sn?(2); 

SKIP  £,1  ST (  *************  MAIN  MENU  #***#####*###  ' )  ; 

LIST( 'WRITE  RECEIVED  FILES  TO  DISK  NO:'); 
LIST( 'DEFAULT  DRIVE(A)    =1') 


PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


SKIP 
SKI? 
SKIP 
SKIP 
SKIP 


LIST(  'DISK  DRIVE  A  =  2') 
LIST(  'DISK  DRIVE  B  =3') 
LIST  (  '**##*#*####***#*#^#*####****####*##  ' ) ; 


SKIP  LIST ('ENTER  DRIVE  NUMBER==>')J 
GET  LIST(DSKNO); 
PUT  SKIP(2)J 
IF  DSKNO='l'  THEN 

do; 
rxfcb.disk=0;/*  load  disk  number  in  fcb  */ 

C0UNT7A=2J 
END? 

ELSE 

if  dskn0='2'  then 
do; 
rxfcb.disk=l;/*  disk  number  to  fcb  */ 

C0UNT7A=2? 

end; 

ELSE 

if  dskn0='3'  then 
do; 
rxfcb.disk=2j/*  disk  number  to  fcb  */ 

C0UNT7A=2J 

end; 

put  ski?  list(  'invalid  drive  number-reenter : ' ) ; 
end;/*do  LOOP*/ 
C0UNT7B=i; 
DO  WHILE  (COUNT7B=l); 


PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


SKI? 
SKIP 
SKI? 
SKIP 
SKI? 
SKI? 
SKIP 
SKI? 
SKI? 
SKIP 


LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 


'ETHERNET  FRAME  DATA  BLOCK  SIZE: 

'SELECT  128  FOP  ALL 

'AND  VAX  COMMUNICATIONS.'); 


FILE  OPERATIONS' 


)  » 


128 
256 

512 
1024 
1500 


BYTES 

BYTES 
BYTES 
BYTES 
BYTES 


1') 
2') 
3') 
4') 
5') 


'ENTER  SELECTION==>'); 


); 
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GET  LIST(F 
PUT  SKIP(2 
IF  FRAMD=' 

do; 

FRSIZ 
COUNT 

end; 

ELSE 

IF  FRAMD=' 

do; 

FRSIZ 
COUNT 

end; 

ELSE 

IF  FRAMD=' 

do; 

FRSIZ 
COUNT 

end; 

ELSE 

IF  FRAMD=' 

do; 

FRSIZ 
COUNT 

end; 

ELSE 

IF  FRAMD=' 

do; 

FRSIZ 
COUNT 

end; 

ELSE 

PUT  SSI 

end;/-  do  loo 

VTERM=0;/*  RE 
TFMODE=0;/*  R 
CALL  init; 
PUT  SSI?  LIST 
PUT  SKIP 
PUT  SSI? 
PUT  SUP 
PUT  SKIP 
PUT  SKIP 
PUT  SKI? 
PUT  SKI? 
PUT  SKIP 
SET  LIST 
PUT  SKI?(2); 
IF  SELECT='3 


LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
'SELE 


RAMD); 

)? 

1'  THEN 

E=128;/*  SET  THE  FRAME  SIZE  */ 
7B=2J 


2'  THEN 

E=256J/*  SET   FRAME  SIZE  */ 
7B=2J 


3'  THEN 

E=512;/*  SET  FRAME  SIZE  */ 
73=2; 


4'  THEN 

E=1024=;/*  SET  THE  FRAME  SIZE  */ 
73=2; 

5'  THEN 

E=1500;/*  SET  FRAME  SIZE  */ 
7B=2; 


?  LIST  ( 'INCORRECT  CHOICE-REENTER :  ' )  5 
P  */ 

set  terminal  flag  to  false  */ 
eset  command  mode  flag  to  false  */ 

(  'operating  "odes: ')? 

('receive  wait  loop  =1') 
('transmit  file  or  message=  2') 
('virtual  terminal  of  vax  =3') 
(  'vax  command  mode  =  4') 
('disconnect  from  net    =5') 

Center  selection  ==>'); 
ct); 


DO 


THEN  /*  RECEIVE  MODE  */ 
TX30FF(l)=2i/*  LCAD  FIRST  THREE  DEST  ADD?  BYTES  */ 
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TXBUFF(2 
TXBUFF(3 
PUT  SKI? 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
CALL  REC 

end; 

ELSE 

IF  SELSCT='2' 
CALL  TRANS 
ELSE 

if  select='3' 
do; 
vtsrm=i; 

FRSIZE=1 
PUT  SKIP 
PUT  SKI? 
PUT  SKIP 
PUT  SKIP 
PUT  LIST 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKI? 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
TXBUFFd 
TXBUFF(2 
TX3UFF(3 
TXBUFFU 
TXBUFF(5 
TXBUFF(6 
TXBUFF(7 
TX3UFF(3 
C0UNT7C= 
PUT  SKIP 
DC  WHILE 
CALL 
PUT  S 
IF  VT 
DC 


EN 


)=?;/*    FOR  ACK  REPLY  IN  RECEIVE  MODE  */ 

j=i; 

LISTCIN    RECEIVE    WAIT   LOCP-TO    RETURN    TO' 

LIST('MAIN  MENU:  ENTER  <CR>  ==>'); 

LI  ST (  '*##*####**#######*#***##**####** ' ) 

(2); 
eive; 


THEN  /*  NORMAL  TRANSMIT  */ 


THEN  /*  VAX  TERMINAL  MODE  */ 

/*  SET  THE  TERMINAL  FLAG  TO  TRUE  */ 

500; 
LIST(  '*******    VAX    TERMINAL    MODE   ***#**#'); 

(l); 

LISTCVAX   TERMINAL    SERVICE:'); 
LIST('DATA    BLOCK    SIZE    PER    FRAME=')J 

(frsize); 

LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 

(i); 

)=2;  /*  LOAD  THE  VAX  NET  ADDR  INTO  THE  31 
)=?;  /*  'DDRESS  BYTES  */ 

)=i; 
)=0; 
)=?; 
)=12?; 

)=0J/*  LOAD  THE  TYPE  TWO  TYPE  FIELD  3YTES  */ 
)=0; 


'TERMINAL  ENTRY  BY  LINE  OF  TEXT'); 
'BEGIN  AFTER  INITIAL  V  PROMPT:  "V>'* 
'ENTER:  TEXT  LINE<CR>')  ; 
'PROMPT  WILL  AUTOMATICALLY  REAPPEAR 
'UPON  ENTRY  OF  THE  FIRST  CHARACTER' 
'OF  THE  NEXT  LINE  YOU  BEGIN.'); 

'TO  END  TERMINAL  SESSION:'); 
'ENTER:  "."<CR>  AFTER  "7>"'); 


'); 

'); 

'); 
); 

'); 

'); 

x*/ 


LIST(  'v>'); 
(COUNT7C=l); 

sendata; 

KIP  LIST( 'v>'); 

ERM=0  THEN  /*END  TERMINAL  SESSION*/ 

• 

PUT    SKIP   LISTC****    END   TERMINAL    SESSION    ****'); 
C0UNT7C=2; 

d; 
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ELSE 

do; 
call  i nit; 
call  receive; 
put  list(  '~h~e~hv>'); 
end; 
end;  /*  DO  LOO?  */ 
end; 

ELSE 

if  select='4'  teen  /*  vax  command  mode  */ 
do; 
put  skip  listc***  vax  command  instructions  *#*')? 

PUT  SKI^  LIS'M' ')* 

PUT  SKIP  LIST! 'TO  DOWNLOAD  A  FILE  FROM  THE  VAX:'); 
PUT  SKI?  LIST(  'ENTER  THE  MESSAGE:'); 

PUT  SKIP  LIST  C"  !ENAME(VAX}.FTXP£(VAX)/XXXN  "' ) ; 
PUT  SKIP  LIST( 'WHERE  "XXX"=  EXE   FOR  NON-TEXT  FILES'); 
PUT  SKI?  LIST ('AND    "XXX"="TXT"  FOR  TEXT  FILES'); 
PUT  SKI?  LIST('FILE  WILL  THEN  BE  IMMEDIATELY  SENT'); 
PUT  SKIP  LIST('TO  THIS  HOST.'); 

PUT  SKIP  LISTC '); 

PUT  SKIP  LI3T('TO  UPLOAD  A  FILE  TO  THE  VAX:'); 

PUT  SKI?  LISTCl.)  ENTER  THE  MESSAGE:'); 

PUT  SKIP  LISTC"  C«FNAME(VAX).FTY?E(VAX)/XXX>  '")? 

PUT  SKIP  LISTCTO  OPEN  A  VAX  FILE  BY  THE  ABOVE  NAME'); 

PUT  SKIP  LIST(  '2.)  THEN:'); 

PUT  SKI?  LISTCSEND  THE  FILE  TO  THE  VAX  ADDRESS  USING'); 

PUT  SKI?  LISTCTHE  NORMAL  FILE  SENDING  SELECTIONS.'); 

PUT  SKIP  LISTC '); 

PUT  SKIP(l); 

TRMODE=i;  /*SET  VAX  CMD  MODE  FLAG  TO  TRUE*/ 

FRSIZE=128; 

TXBUFF(1)=2J  /*LOAD  THE  VAX  NET  ADDR  INTO  THE  SIX  */ 

TXBUFF(2)=7?  /^ADDRESS  BYTES  */ 

TXBUFF(3)=i; 

TX3UFF(4)=0; 

TXBUFF(5)=7; 

TXBUFF(6)=127J 

TXBUFF(7)=0;/*  LOAD  THE  TWO  TYPE  FIELD  BYTES  */ 

TXBUFF(9)=0; 

CALL  SENDATAt 

CALL  init; 

RXBUFF(17)=255; 

CALL  RECEIVE; 

end; 

ELSE 

IF  SELECT='5'  THEN  /*  DISCONNECT  BY  EXITING  TO  CP/M  */ 

C0UNT7=2; 
ELSE 

PUT  SKI?  LIST ( 'INCORRECT  OPMODE  SELECTION-REENTER : ' ) ; 
end;  /*  DO  LOO?  */ 
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put  skip  list ('disconnecting  from  nst-retubning  to  c?/m.')j 

trans2:  /*  gets  user  input  of  file  data  */ 

procedure; 


DECLARE 


TYPE-/ 
FILETYPE*/ 

DRIVE  NO.*/ 


FILE  NATURE*/ 
NOT  OPEN  FLG*/ 


/*  LOCAL  VARIABLES  */ 

C0UNT6    FIXED  BINARY(7),/*  LOOP  CONTROL*/ 

C0UNT6A   FIXED  BINARY(7),/*  LOOP  CONTROL*/ 

C0UNT6B   FIXED  BINARY (7 ), /*LOOP  CONTROL*/ 

C0UNT6C   FIXED  BI NARY ( 7 ) , /*LOOP  CONTROL*/ 

SENDTYPS  CHARACTER (1),/*USER  INPUT  TRANSMIT 

FTYP      CEARACTER(l) ,/*USER  INPUT 

DRNO      CHARACTER(l) ,/*USER  INPUT 

/*  FILE  DATA  ENTRY  DCLS  */ 

I  FIXED, 

FN  CHARACTERS)  , 

LOWER  CHARACTER(26)  STATIC  INITIAL 

( 'abcdefshi }klmnoDQrstuvvxyz  ' ) , 

UPPER  CHARACTER(26)  STATIC  INITIAL 

( 'ABCDEFGEIJKLMNOPQRSTUVWXYZ')  , 

/*  GLOBAL  VARIA3LES  */ 

FILTY?    FIXED  BINARY  (7)  EXTERNAL,/* 

FNOP  FIXED  BINARY  (7)  EXTERNAL , /*FI LE 

/*  GLOBAL  DATA  STRUCTURES  */ 

TX3UFF(1508)  FIXED  BINARY (7)  EXTERN AL , /*TRANS  BUFF*/ 

1  TXFCB  EXTERNAL, /*TRANSMIT  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY(7), 

2  FNAME  CHARACTER(S), 

2  FTYPE  CHARACTERS), 

2  TFCB(24:)  FIXED  BINARY;'?), 
/*  EXTERNAL  MODULES  */ 
SSNDATA    ENTRY;/*  ISO  LEVEL  3  FRAME  SENDER*/ 

C0UNT6  =i; 

DO  WHILE(C0UNT6=1); 

PUT  SKI?  LIST ( 'TRANSMISSION  OPTIONS:'); 

PUT  SKIP  LISTCSEND  A  MESSAGE    =1')? 

PUT  SKIP  LISTCSEND  A  DISK  FILE  =  2'); 

PUT  SKI?  list  ( '^s^*******************-******^******5* ' )  ; 

PUT  SKIP  LIST('ENTE?  SELECTION  ==>'); 

GET  LIST(SENDTYPE); 

PUT  SKI P ( 2  )  * 

tx3uff,3)=0;/*  type  field  byte  2=n0rmal  msg  or  file*/ 
if  sendty?e='l'  then  /*ssnd  a  message  */ 
do; 

txbuff(7)=3;/*ty?e  field  byte  1=messags*/ 

call  send at a? 

C0UNT6=2; 

end; 
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ELS  E 

IF  SENDTY?S='2'  THEN  /*SEND  A  DISK  FILE*/ 

do; 
txbuff(7)=15;/*  type  field  byte  1=  file*/ 

CCUNT6A=i; 

DO    WRILE(C0UNT6A=1); 

PUT   SKIP    LISTCNATUPE   OF   FILE    TO   SEND:'); 

PUT   SKIP    LIST('TEXT    (ASCII)    FILE  =   1'); 

PUT   SKIP    LIST( 'MACHINE    CODE    (COM)    FILE   =   2'); 

PUT   SKIP    L IST(  's^***************************** ' ) ; 

put  skip  Li st Center  type  of  file  choice  ==>';; 

GET  LIST(FTYP); 
PUT  SKIP(2); 
IF  FTYP='l'  THEN 
DO? 

FILTYP=i;/*  SET  THE  FIL?TY?=TEXT  FILE  */ 
CCUNT6A=2; 

END? 

ELSE 

if  ftyp='2'  teen 
do; 

FILTYP=2;/*  FILE  TY?E=MACHINE  FILE  */ 
C0UNT6A=2J 

end; 

ELSE 

PUT^SKIP  LIST( 'INCORRECT  CHOI CE-REENTER  :  ' )  ; 
end;/*  DO  LOOP  */ 
C0UNT6B=1,* 

DC    WHILE ( COUNT 6B=1); 
COUNT 6C=1J 
DC    WHILE (C0UNT6C=1); 

PUT   SKIP   LI5T( 'SPECIFY    FILE   TO    SEND:'); 

PUT    SKIP   LIST('FILE   LOCATED   ON:'); 

PUT   SKIP   LISTC      DRIVE    A   =   l')j 

PUT   SKIP   LISTC      DRIVE   3    =   2'); 

PUT  SKI?  LIST C*********************' ) ; 

PUT  SKI?  LIST(  'ENTER  DRIVE  NUMBER==>'); 

GET  LIST(DRNO); 

PUT  SKI?(2)J 

IF  DRNO='l'  THEN 

ro; 

TXFCB.DI5K=i; 
C0UMT6C=2; 

end; 

ELSE 

if  drn0='2'  then 
do; 
txfcb.disk=25 

C0UNT6C=2; 
END ; 

ELSE 


put  skip  list( 'invalid  drive-reenter: ') j 
end;/*  do  loo?  */ 

put  ski?  list( 'enter:"filename.filetype"==>'); 
git  list(fn); 
put  skip(2)j 

fn=translate(fn, upper, lower); 
i=index(fn, '.'); 

IF  1=0  THEN 

do; 

txfcb.fname=fn; 
txfcb. ftype='   '; 
end; 

ELSE 

do; 
txfcb  .fn a me=substr  (  fn  ,  1 , 1-1 )  j 
txfcb.ftype=su3str(fn,i+1); 
end; 
txfcb. tfcb(1)=0;/*  set  fcb  fields  that  count=0*/ 
txfcb. tfcb(4)=?;/current  extent , record  etc.  */ 
txfcb. tfcb(21)=0j 
call  sendata; 

IF  FNOP~=l  TEEN 
C0UNT63=2; 

end;/*  do  loop  */ 

C0UNT6=2; 

end; 

ELSE 

PUT  SKIP  LI  ST ( 'INCORRECT  TRANSMIT  MODE-REENTER : ' ) J 
end;  /*  DO  LOOP  */ 
END  TRANS2J 

END  ETHERNET;/*  ISO  LAYER  ?  MODULE  */ 
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APPENDIX  I 

SOURCE  CODE  FOR  MODULE  SEND  ATA. PLI 


sendata:  /*  presentation  layer  module-iso  level  6  »/ 
procedure; 


DECLARE 


/*  LOCAL  VARIABLES  */ 
C0UNT5A   EIXED  BINARY(7) 
DESTADDR  CHARACTER ( 1 ) ,/* 
/*   GLOBAL  VARIABLES  */ 
TRMODE    EIXED  EINARY(?) 
VTERM     FIXED  3INARY(7) 


/-LOOP  CONTROL*/ 

DEST    ADDRESS-USER    INPUT*/ 


.vx*/ 


EXTERNAL,/*'/ AX  CMD  FLAG*, 
EXTERNAL ,/*TERMINAL  FLAG*/ 

FRSIZE    FIXED  BINARY (15)  EXTERN AL ,/*FRAME  SIZE*/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF(1509)  FIXED  BINARY (7)  EXTERNAL » /*TRANS  BUFF*/ 

/*LAST  REVISION:  09/15/83-0900  ORIGINAL  PROGRAM: 07/29/83*/ 

/♦AUTHOR:  CAPT.  MARK  D.  STOTZER-USMC-AEGIS  GROUP        */ 
/*THESIS  ADVISOR:  PROF.  UNO  R.  KODRES-COMPUTER  SCIENCE   */ 


VAX  COMMAND  MODE  */ 


if  vterm=  1  then  /*  terminal  mode  */ 
do; 

call  sendmsg; 

return; 
end; 
if  trmode=  1  then  /* 
do; 

call  sendmsg; 

return; 
end; 

C0UNT5A=i; 

DO   *HILE(C0UNT5A=1) ; 

PUT  SKI?  LIST  1 'ADDRESSES 

LIST( '00-03-EA: 

LIST( '00-04-0A: 

LIST( '00-07-7F: 


ON  THIS  NETWORK:  '); 
MDS  SYSTEM   -  1  '); 
MDS  SYSTEM   =2')? 
VAX  11/7S0   =  3'); 
LIST(  '*#*#*#########****##***#*##*#')  ; 

LISTCENTER   SELECTION    ==>'); 
LIST (DESTADDR) J 
SKIP(2); 

/*LOAD    THE   FIRST    FOUR    DEST    ADDR   BYTES*/ 


SKI? 
SKIP 
SKIP 
SKIP 
SKIP 


PUT 

PUT 

?UT 

PUT 

PUT 

GET 

PUT 

TXBUFF(1)=2; 

TXBUFF'2)=7; 

TXEUFF'3)=i; 

TXBUFF.4)=0J 
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I?  DESTADBR='l'  THEN 
DC? 

TXBUFF(5)=3;/*L0AD  LAST  TWO  DEST  ADDR  BYTES*/ 

TXBUFF(6)=234J 

IF    TX3UFF(7)=0   THEM/*   SEND   THE   MSG*/ 

CALL   SENDMSG; 
ELS  E 

call  sendfilf;/*send  tee  file*/ 

C0UNT5A=2J 

end; 

ELSE 

IF  DESTADDR='2'  THEN 
DO  * 

TXBUFF(5)=4:;/*LCAD  LAST  TWO  DSSTINATON  ADDR  3YTES*/ 

TXBUFF(e)=10J 

IF  TXBUFF(7)=e  THEN 

CALL  sendmsg; 
ELSE 

CALL  sendfile; 

C0UNT5A=2; 

end; 
else 
if  destaddr='3'  then 

do; 
txbuff(5)=7j/l0ad  last  two  dest  addr  bytes*/ 

TXBUFF(6)=12?; 
TRMODE=0; 

IF  TX3UFF(7)=0  THEN 
CALL  SENDMSG; 

ELS  E 

CALL  sendfile; 

CCUNT5A=2; 

end; 

ELSE 

PUT^SKIP  LIST ( 'INVALID  NET  ADDRESS  SELECTED-RSENTSR : ' ) ; 
end;  /*  DO  LOOP  */ 

SENDMSG:  /*  MESSAGE  SENDING  MODULE  */ 

PROCEDURE; 

DECLARE   /*  LOCAL  VARIABLES  */ 
/*  GLOBAL  VARIA3LES  */ 

FRSIZE   FIXED  BINARY(lS)  EXTERNAL, /*FRAME  SIZE*/ 
TRMODE   FIXED  BINARY (7)   EXTERNAL, /*VAX  CMD  FLAG*/ 
7TERM    FIXED  BINARY(7)   EXTERN AL , /*TERMI NAL  FLAG*/ 
/*  GLOBAL  DATA  STRUCTURES  */ 

TX3UFFCL503)  FIXED  BINARY(7)  EXTERNAL , /*TRANS  BUF*/ 
RXBUFF(1522)  FIXED  BINART(7)  EXTERNAL , /*RSCV  BUFF*/ 
/*  EXTERNAL  MODULES  */ 
FILBUF    ENTRY,/*  LOADS  TRANS .BUFFER  FROM  CONSOLE*/ 
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ssndfram  entry;/*  iso  level  3  frame  sender*/ 

if  vterm=1  then  /*  virtual  terminal  mote  */ 
do; 
call  fil3dfj 
if  txbuff(9)=96  then 

return; 
if  txbuff(9)=46  s.  txbuff( 10) =96  then  /*end  session*/ 
vterm=0j  /*end  terminal  session*/ 

ELS  E 

CALL  ssndfram; 
end; 

ELSE 

do; 

put  ski?  list(  'message  sender:'); 

put  skip  list(  'maximum  number  of  characters*  ')? 

put  list(frsize); 

put  skip  li  st ('enter  message  after  prompt:  >')? 

put  skip  list('snd  message  with  accent:  x  '); 

put  skip  list(  '>'); 

call  filbuf;  /*fill  transmit  buffer  from  console*/ 

call  ssndfram;  /*  send  the  message  */ 
end; 
end  sendmsg; 

sendfile:  /*  file  sending  module*/ 

procedure; 

declare   /*  local  variables  */ 

counts  fixed  binary ( 7) ,/*locp  control*/ 

/*  global  variables  */ 

filtyp  fixed  3inary(7)  external ,/*fi le  nature*/ 

fnop   fixed  binary(7)  external, /*not  open  flag*/ 

lfrm      fixed  binary(7)  external ,/*last  data  flag*/ 

/*  global  data  structures  */ 

tx3uff(1506)  fixed  binary(7)  external, 

/*  external  modules  */ 

vaxtxt  entry,/*  cp/m  to  vax  format  converter*/ 

trndma  entry, /*transmit  set  dma  address*/ 

opendf  entry, /*open  disk  file*/ 

rdisk    entry, /*read  disk  file  record*/ 

sendfram  entry ;/*i so  level  3  frame  sender*/ 

/*last  revision:  08/25/93-1530  original  ?rogram:0s/16/63  */ 
/*author:  capt.  mark  d.  stotzer-usmc-aegis  group  */ 
/*thssis  advisor:  prof.  uno  r.  kodres-computer  science   */ 

txbuff(7)=15;/*  load  type  field  bytes*/ 

TXBUFF(3)=0; 
CALL  OPENDF ; 
IF  FNO?=l  THEN  /*FILS  NOT  ON  DISK*/ 
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do; 
put  ski?  listcfile  not  on  disk-reenter  data:'); 

PUT  SKIP(2)t 

return; 
end; 
if  tx3uff(6)=127  &  filty?=1  then 

CALL  vaxtxt;   /*7AX  TEXT  FILE  FORMAT  CONVERTER*/ 
ELSE 

do; 
call  trndmaj  /*  set  disk  dma  address-/ 

PUT  SKIP  LI ST( '*******  vile  TRANSFER  3EGINS  ******'); 
PUT  SIIP(2) ; 

C0UNT4=i; 

DO  WHILE(COUNT4=l)t 

call  p.disk;  /*read  a  disk  file  record*/ 
if  lfp.m~  =  1  then 
do; 

CA^L  SENDFTAf1! 

txbuffTs)=i;/*encode  type  fld=intermed  prams*/ 
end; 

ELSE 

C0UNT4=2J 

end;/*  do  loop  */ 

txbuff(9)=255;/*enc0de  type  field=last  frame*/ 

call  sendfram; 

put  skip  list(  '*****  file  transfer  ends  ***** ' ) ; 

PUT  SKIP{2) ; 

return; 
end; 
end  sendfile; 

end  sendata;  /*  iso  la ye?  6  transmit  module  */ 


APPENDIX  J 
SOURCE  CODE  FOP  MODULE  RSCDATA.PLI 

RECDATA:  /*  ISO  LAYER  6  RECEIVE  MODULE  */ 

PROCEDURE; 

DECLARE   /*  GLOEAL  DATA  STRUCTURES  */ 

RXEUFFU522)  FIXED  BINART(7)  EXTERNAL? /*RCV  BUFF*/ 

/*LAST  REVISION:  09/15/83-1215  ORIGINAL  PROGRAM: 93/17/33  */ 
/*AUTHOR:  CAPT  "ARK  D.  STOTZEP-USMC- AEGIS  GROUP  */ 

/♦THESIS  ADVISOR:  PROF.  UNO  R.  KODRES-COMPUTER  SCIENCE    */ 

IP  RXBUFF(17)=  0  THEN  /*  MESSAGE  FRAME  */ 
CALL  conmsg; 

ELSE 

IF  RXBUFF(17)=  15  THEN  /*  FILE  FRAME  */ 

CALL  filer; 
ELSE 

PUT  SKIP  LIST ('RECEIVED  IMPROPERLY  ENCODED  FRAME'); 

CONMSG:  /*  MESSAGE  RECEIPT  MODULE  */ 
PROCEDURE; 

DECLARE    /*  GLOBAL  VARIABLES  */ 

TRMODE   FIXED  BINARY(7)  EXTERNAL, /*V AX  CMD  FLAG*/ 

FRSIZE   FIXED  BINARYU5)  EXTERNAL ,/*FRAME  SIZE-/ 

VTERM    FIXED  BINAPY(7)  EXTERN AL , /*TERMI NAL  FLAG-/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

RX3UFF(1522)  FIXED  BINARY (7)  EXTERNAL ,/*RECV  BUF*/ 

/*  EXTERNAL  MODULES  */ 

TRMSG  ENTRY,/-  ACKNOWLEDGE  SENDER-/ 

EMTBUF  ENTRY i/*DUMPS  RECEIVE  BUFFER  TO  CONSOLE-/ 


IF  VTERM~=1  THEN  /*  NOT  IN  VIRTUAL  TERMINAL  MODE*/ 

do; 
put  skip  list( '*****  received  message  is:'); 
put  skip(2)j 

end; 
call  emtbuf ;  /*  dump  the  rscvd  frame  data  to  console  */ 
call  trmsgj     /*  send  the  ack  frame  */ 
if  vtep.m~=1  them  /*not  in  terminal  mode*/ 
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do; 
put  skip (2); 

put  ski?  list( '*****  end  of  message  text.'); 

PUT    SKIP(2); 

PUT  SKIP  LIST( 'BACK  IN  WAIT  LOOP-ENTER<CR>  TO  EXIT=>') 
PUT  SKI?  LIST(  'fc****************^****************** ') 
PUT   SKIP(2); 

end; 

ELSE 

IF  RXBUFF(18)=  15  THEN  /*LAST  FRAME  OF  TERMINAL  REPLY*/ 
PUT  SKIP  LIST(  '?>'); 
END  conmsg; 


FILER:  /*  FILE  FRAME  RECEIPT  MODULE*/ 

procedure; 

declare   /*  global  variables  */ 

trmode   fixed  binary (7)  external ,/*cmd  flag*/ 
recfil   fixed  binary !7)  external , /*rfile  no.*/ 

VTERM      FIXED  BINARY '7)  EXTERNAL , /*TERM  FLaG*/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

1  RXFC3  EXTERNAL, /*RECEIVS  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY(7) , 

2  FNAME  CHARACTERS)  , 

2  FTYPE  CHARACTER '3) , 

2  TFCB(24)  FIXED  BINARY{7), 
RXBUFF(1522)  FIXED  BINARY(7)  EXTERNAL  ,/*RX  3UF*/ 
/*  EXTERNAL  MODULES  */ 

RCVDMA    ENTRY, /*SETS    RECEIVE   DISK    DMA    ADDR*/ 
DELEDF   ENTRY, /*DSLETES    FILES*/ 
MAKEDF   ENTRY, /*MAKES    NEW    DISK    FILES*/ 
WRDISK   ENTRY, /*WRITES    A    DISK   RECORD*/ 
TRMSG      ENTRY, /*SENDS    ACK    FRAMES*/ 
CLOSDF  ENTRY;/*CLOSES    DISK    FILES*/ 

CALL  rcvdma; 

if  rxbufffl8)=0  then  /*  first  file  frame  */ 
do; 

put  skip  _ist( '*******  file  receipt  3egins  ***#***'); 

put  ski?  listc  opening  file-  recfrom_.net:'); 

PUT  SKIP(2) ; 

'.XFCB.FNAME='RECFROM  ';  /*NAME  THE  RECEIVED  FILE*/ 

RXFCB.ETYPE='MET': 

RXFCB .TFCB( 1)=0;  /*ZERO  THREE  FIELDS  OF  FCB*/ 

RXFCB  .TFCB(-i)  =  0; 

R  X  ^  C  B  T  T  C  B  ( 21)=0* 

CALL  DELEDFJ  /*DELETE  OLD  FILE  OF  THIS  FN. FT*/ 

CALL  makedf;   /*create  a  new  one*/ 

CALL  WRDISK J  /*WRITE  FIRST  RECORD! 128  BYTES)  TO  DISK*/ 
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call  trmsgj  /*  send  the  first  ack  frame  */ 
end; 

ELSE 

if  rxbuff:is)=i  then  /^intermediate  file  frame*/ 
do; 
call  wrdisk;  /*write  next  record  to  disk*/ 
call  trmsg;  /*  send  the  ack  frame  */ 
end; 
els  e 

if  rxbuff(18)=255  then  /*l ast (dummy )  file  frame*/ 
do; 
call  closdf;  /*close  the  disk  file*/ 

PUT  SKIP  LISTC*******  END  FILE  RECEIPT  ##*#**#'); 

PUT  SKIP  LISTC    SEE  FILE  (S  )  :RECFROM_  .NET  ') : 

PUT  SKIP (2) ; 

CALL  TRMSGJ   /*SENT  THE  LAST  ACK  */ 

PUT  SKIP  LIST( '  NOTE:  '); 

PUT  SKIP  LISTC '); 

PUT  SKIP  LISTCIF  RECEIVED  FILE  IS  A  TEXT  FILE  FROM  ' )  ; 
PUT  SKIP  LISTCTHE  VAX  THEN  REFORMAT  USING:'); 
PUT  SKIP  LISTC'PI?  FNAME.FTYPE=RECFROM_.NET[D80]  '')  ; 
PUT  SKIP  LIST(  "WHERE  FNAME.FTYPE  IS  YOUR  CHOICE'); 

PUT  SKIP  LISTC '); 

PUT  SKIP(2) ; 

if  vterm=1  then 
do; 
put  skip  listcstill  in  vax  terminal  mode:'); 
put  ski?  list(  'vc  ); 

END? 
ELSE 

do; 
put  ski?  list'  'in  wait  loop-enter<cr>  to  exit '0  j 

PUT  SKI?  LIS  T  (  '#*#***#*##::--#*#*#######**##*#**  ' )  ; 
PUT  SKI? (2) J 
END; 

end; 

ELSE 

PUT  SKI?  LISTC  FRAME  TYPE  FIELD  BYTE  2  INVALID  CODE'); 

END  filer; 

END  RECDATA;  /*  ISO  LAYER  6  RECEIVE  MODULE  */ 


APPENDIX    K 
SOURCE    CCrE   FOR   MODULE   ETHER2.ASM 


PROGRAM   NAME: ETHER2. ASM 

THIS    MODULE   PERFORMS    TEE    ISO    LAYER   2   AND   3    FUNCTIONS    IN 
TRANSMIT    AND   RECEIVE    AND    PROVIDES    TEE    ISO    LAYER    7 
RECEIVE   MODULE 

APPLICATION  LAYER(LAYER  7)  :IN  RECEIVE  ONLY-  WAIT  LOOP 
FOR    FRAME    ARRIVAL. 

NETWORK    LAYER(LAYER    3):TRANSMIT   CR    RECEIVE   FRAMES 

DATA  LINK  LAYER (LAYER  2):PROCES3ES  ACKNOWLEDGE  FRAMES 
IN  ADDITION  TO  TEE  LAYER  2  FUNCTIONS  PERFORMED  BY  TEE 
N 13010    CONTROLLER   BOARD. 

THIS    MODULE    ALSO    ALLOWS    ALL    OTEER    MODULES    TO   ACCESS 
TEE    CP/M-80    OPEPATING    SYSTEM    FUNCTIONS    5EOWN    BELOW 

LAST    REVISION:    <39/16 /93-1000        ORIGINAL   PROGRAM:    08/14/53 
AUTHOR:    CAPT   MARK    D.    STOTZER-USMC-AEGIS    MODELING    GROUP 
THESIS    ADVISOR:    PROFESSOR    UNO    R.    KODRES -COMPUTER    SCIENCE 

A  «J*  «**  sC  ■*-  «<*  •Jr  «■»  «* »  <JL.  mJf  %**  » '»  ***  .  V  «J-  -J*  >>»  «J*  «A#  »**    •  «*  -v**  %**  «^»  -J*  *'*  «.'*  *'*  <JU   *'*  %<*■   »•-  %A#  »-.*  *JU  •*»  *iw  «V  WW  *J*  v  "*V  *-**  **■*  *1—  *V  V^  *■*<  *-V  V*  v*  «A#  >j-  V-*  ->-  «V  V#  «V 
'g*  ^»  *^»  *l»  »^»  »(»  *y*  *l*  ">*  ■***  "T*  ***  •¥■  *P  *i*  *1*  *T*  *^  *1*  1*  "T*  '  <*  *l*  *•*  *S*  *t*  *i*  *l*  ^^  "B"  *^  ***  1*  *^  *i*  •?•  1*  *T*  *<*  HP  •!■  *t*  **  ■¥*  1*  *¥*  *i*  *I*  ^n  ^*  ■%■  "¥*  *\*  *^  nP  *i*  *i*  *^  ^* 

PUBLIC  IN  IT;    SUBROUTINES    AVAILABLE   TO   EXTERNAL   MODULES: 

PUBLIC  RECEIVE 

PUBLIC  FILBUF 

PUBLIC  EMTBUF 

PUBLIC  NULBUF 

PUBLIC  AWAIT 

PUBLIC  TRMSG 

PUBLIC  WRDIS5 

PUBLIC  VAXTXT 

PUBLIC  SENDFRAM 

PUBLIC  RDISK 

PUBLIC  OPENDF 

PUBLIC  DELEDF 

PUBLIC  MAKZDF 

PUBLIC  CLOSDF 

PUBLIC  PCVDMAJ    MODULES    CALLED    BY    THIS    MODULE 
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PUBLIC 

TRNDMA 

EXTRN 

RECDATA 

J  NI3010 

BOARD  ?. 

EGISTER  PORT  ADDRESSES: 

CREG 

EOU 

00B0H;  COMMAND  REGISTER 

SREG 

EOU 

00B1HT  COMMAND  STATUS  REGISTER 

ISREG 

EOU 

02B5HJ  INTERRUPT  STATUS  REGISTER 

IEREG 

EOU 

00B8H?  INTERRUPT  ENABLE  REGISTER 

EBAR 

EOU 

00B9H?  EXTENDED  BASE  ADDRESS  REGISTER 

H3AR 

EOU 

00BAHJ  HIGH  BASE  ADDRESS  REGISTER 

LBAR 

ECU 

00B3EJ  LOW  BASE  ADDRESS  REGISTER 

EBREG 

EOU 

00BCHJ  EIGE  BYTE  COUNT  REGISTER 

LBREG 

EOU 

00BDH;  LOW  BYTE  COUNT  REGISTER 

JCP/M  WA 

RM  BOOT 

ENTRY  POINT: 

EXIT 

EOU 

0003H;  WARM  BOOT-TERMINAL  ERROR  ESCAPE 

5BD0S  EQUATES  : 

EDCS 

EOU 

0005HJ  BDOS  ENTRY  POINT 

JBDOS  FUNCTION  CODES: 

CONSIN 

ECU 

01HJ  CONSOLE  CHARACTER  INPUT 

CONSOUT 

EOU 

02H;  CONSOLE  CHARACTER  OUTPUT 

?S THING 

EOU 

09H;  PRINT  STRING 

CONSTAT 

EOU 

0BH;  CHECK  CONSOLE  STATUS 

OPENFIL 

EOU 

0FH;  OPEN  A  DISK  FILE 

CLOSEF 

EOU 

10HJ  CLOSE  A  DISK  FILE 

DELETE 

ECU 

13H;  deletf  a  disk  file 

READF 

EOU 

14Hi  READ  A  DISK  FILE  RECORD-128  BYTES 

WRITEF 

EOU 

15H;  WRITE  A  DISK  FILE  RECORD-128  byte 

MAKEF 

EOU 

16H;  CREATE  A  NEW  DISK  FILE 

SDMA 

EOU 

iah;  set  disk  dma  address 

J  ###  *-<;{:* 

f*  *■*  +C  *T,1*  ^*  *<r*^r 

***  -j*  V*  ■*■**  V*  V*  *'*  *V  vy  ***  V  tH*  -  '  -"'  *•*  —'*■  «■*  *  iV  >v  - '-  ***  *■*■*  ***  "V  *■**  *V  *-V  -*-  V *  •J*  -**  -'r  ~J*  *++   -**  ***  ***  - '»  *■'-*  -  -  -'- 

•  j(c^c^:^c^c^c^: 

w*»i*  -Jr   h(^«A#  .-\+  V*  *V  *V  *V  ***  ***  V*  ***  %'*  ***  »v  *^  ^V  *J^  ***  »*»  ***  ^'*  **f  *""•»  "J*  '  '*»•*  ■■*«•  ^^  »**  ^*  ^*  **•  %**%(»  *)U  *•*  »V  %••  »^  *'*  V*  *V  »'*  »'*  ■*'*  *** 

*f  t*  *r  *r"r  'FnT'V  *r  *r  ^*  *r  *t*  *\»  *P  *v»  *c  ^*  n*  *?  -»»  *r»  *f  -.»  -i6  *r*  ^*  ',■» *i*  -i*  **  3|*  *r  *v»  *»*  *.» -i*  *?  3jp  agi  «*»  ^*  -,-  >,-  -v  -,--,*...  -n 

;  init- 

INITIAL I 

ZES  INTERRUPT  VECTOR  AND  NI301?  REGISTERS 

INIT 

DI 

IN 

SREGJ  READ  STATUS  REGISTER  TO  CLEAR 

MVI 

A.03FE;  CLEAR  NI3010  RECEIVE  BUFFER 

OUT 

CREG 

CALL 

READ 

MVI 

A.12HJ  SET  UP  INTERRUPT  CONTROL 

OUT 

0FDH 

MVI 

A,00E 

OUT 

0FCH 

MVI 

A,0DFH;  ENABLE  INT5  only 

OUT 

0FCH 

MVI 

A.0C3H 

STA 

0028H 

LXI 

H,RECFRAM 

SHLD 

2P29E 

LXI 

H.ACK 

MVI 

A,0FFH;  preload  acknowledge  buffer 

MOV 

M,  A 

LXI 

h.cereg;  enable  receive(rba)  INTERRUPT 

-'.  -  < ,  -  -  . 

*t»  *|*  -V 
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MVI 

A ,  04H 

MOV 

M,A 

CUT 

IE?  EG 

MVI 

a,09h; 

OUT 

CREG 

CALL 

REJ>D 

EI 

RET 

NI3010  ONLINE  COMMAND 


;  RECEIVE:ISO  LAYER  7-WAIT  LOCP  FOR  INCOMING  FRAMES: 


RECEIVE 

EI 

WAITLP 

NOP 
NO? 
NOP 
NOP 

NOP 
DI 

LXI 

H,F?AMIN 

MOV 

A.M 

CPI 

01H;  has  a  frame  arrived? 

JNZ 

NOTYST 

CALL 

RECDATA 

MVI 

a,00e;  reset  frame  arrival 

ST  A 

FF.AMIN 

NOTYST 

MVI 

C, CONSTAT 

CALL 

BDOS 

CPI 

00H 

RNZ 

EI 

JM? 

WAITLP 

FLAG 


RECFRAM-PERFORMS  ISC  LEVEL  3  FUNCTION  IN  THE  RECEIVE 

MODE -.RECEIVES  FRAMES  AND  TRANSFERS  THEM  TO  MEMORY. 
HANDLES  ALL  NI3010  INTERRUPTS  AND  ENABLES. 


ECFRAM 

DI 

PUSH 

PSW 

PUSH 

3 

PUSH 

D 

PUSH 

u 

LXI 

H,CEREG 

MOV 

B,M 

Mvi 

A.00H 

LXI 

h.cereg; 

DISABLE  NI3013  INTERRUPTS 

MOV 

M ,  A 

OUT 

IEREG 

MOV 

i.B 

"VI 

B,04H 

7B 


RBA 


RDD 


FREER 


CMP 

B 

JZ 

RBAt  RECEIVE  FRAME  INT  WAS  ENA3LED 

MVI 

B,07H 

CMP 

B 

JZ 

RDD;  RECEIVE  DMA  INT  WAS  ENABLED 

JM? 

RDD2J  IE  TRANSMIT  DMA  INT  WAS  ENABLED 

MVI 

A.00H 

OUT 

E3AR 

LXI 

h.rbufft;  TOP  O?  RECEIVE  buffer 

MOV 

A,E 

OUT 

HBAR 

MOV 

A,L 

OUT 

LBAR 

LHLD 

FRSIZE 

LXI 

D.0016H;  ADD  22  TO  IT 

DAD 

D 

MOV 

AtH 

OUT 

HBREG 

MOV 

A,L 

OUT 

LBREG 

LXI 

H.CEPEG 

MVI 

A.07H;  SET  INT  ENABLE  TO  RDD 

MOV 

M,A 

OUT 

IEREG 

JM? 

FINI 

LXI 

H,R3UFFT;  TOP  OF  RECEIVE  BUFFER 

MOV 

A,M 

CPI 

00H;  TESTS  FOR  GOOD  FRAME 

JNZ 

FRERP;  BAD  RECVD  FRAME 

MVI 

A,01HJ  SET  FRAME  ARRIVED  FLAG 

STA 

FRAMIN 

LXI 

H.RTYPEi;  TEST  FOR  RECVD  ACK  FRAME 

MOV 

AtM 

CPI 

00H 

JNZ 

RDD2 

LXI 

H,RTY?E2 

MOV 

A,M 

CPI 

0FFH 

JNZ 

RDD  2 

MVI 

A.01E 

STA 

ACK;  ACK  FRAME  RECVD 

JMP 

RDD2 

DI 

LXI 

H,CEREG 

MVI 

A,00H 

MOV 

M,A;  DISABLE  BOARD  INTERRUPTS 

CUT 

IEREG 

LXI 

D.FERMSG0 

CALL 

TXTOUT 

LXI 

D,TER?.MSG 

CALL 

TXTOUT 
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JMP 

RPD2  LXI 
MVI 
MCV 
OUT 

FINI  POP 
POP 
POP 
MVI 
OUT 
POP 
EI 
RET 

£  #  :jc  #  #  #  #  £  #  #  S£jj£  £  #  !} 


exit;  escape  to  cpm 

H.CEREG 

A,34E 

M,Ai  PE5ET  INT  ENABLE  TO  RBA 

IEREG 

H 

D 

B 

A,?2?H;  RESTORE  INT  PRIORITY 

0FDE 

PSW 


FIL3UF-PLACES  CONSOLE  INPUT  MESSAGES  INTO  TRANSMIT  BUFFER 


FILBUF 


MSGLP 


RDCP 


LHLD 

XCHG 

PUSH 

LXI 

PUSH 

MVI 

CALL 

POP 

POP 

CPI 

JNZ 

PUSH 

LXI 

MOV 

CPI 

JZ 

POP 

MOV 

INX 

MVI 

MOV 

PUSH 

PUSH 

MVI 

MOV 

CALL 

POP 

POP 

JMP 

CPI 

JZ 

CPI 

JZ 

MOV 


FRSIZEJ  LOAD  COUNT=FRAME  SIZE 


H.TFDATA;  LOAD  ADDR  =TRANSMIT  DATA  TOP 

H 

C.CONSIN;  INPUT  CONSOLE  CHAR. 

BDOS 

H 

D 

0DE;  WAS  CARRIAGE  RETURN  INPUT? 

RDCP 

H   ?  YES 

h.vterm;  in  terminal  mods? 

A,M 
01H 

vtend;  then  this  is  end  of  msg. 

H 

m,a;  store  the  char. 

h 

a,? ah;  add  a  line  feed 

m,a;  store  the  linefeed  too 

D 
H 

cconsout;  output  it  tc  console 

E,A 

3D0S 

H 

D 

rdcon;  continue  to  read  tee  buffer 

0SH;  3ACKS?ACE=e=CNTL-H 

B  AC  KS"0 

6eH;  GRAVE  ACCENT=X=END  OF  MESSAGE 

SENT 

M,AJ  STORE  THE  CHAR. 
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DCX  d;  decrement  the  counter 

MOV  A,D 

OR  A  E 

JNZ  rdcon;  I?  ctr  not  zero  then  continue  read 

PUSH  H 

LXI  D,LCNSMSG-;ERROR   MSG:TOO  many   input   char. 

call  TXTOUT 

vtend       pop  h;  terminal  msg-  in  bueeer-done 

MVI  A.60H 

JMP  SENT 

RDCON        PUSH  d;   continue  branch 

INX  H 

PUSH  H 

JM?  MSSLP;  GET  ANOTHER  CHAR 

BACKS?    INX  D 

PUSH  D 

DCX  H 

PUSH  H 

JMP  MSSLPJ  GET  ANOTHER  CHAR 

SENT             MOV  M,At*    STORE   THE    CHAR 

PUSH  H 

LXI  d.daddf;    LAST  ADDR  BYTE 

MOV  A,M 

CPI  07EH;    IS    VAX   =DESTINATION? 

JZ  SENFIN 

POP  E 

MVI  A.03H 

MOV  M,At  SOTRE  A  NULL  IN  PLACE  OF  ACCENT 

CALL  SCLN 

9TTT 

SENFIN    POP  H 

CALL  SCLN 
RET 

ic  sh  St  ^r  rf:  xx  ^  xcix  afc  sScafe  aflcsfe  afa  akafesflc  is  aft  an  sfcaScafic  afeafesfic  afita&a&i  a£c  sk  rii  5"x  ;'i  ft  «  ^c  j"-  ric  aflcaSs  absflcafic «  ;&  aSca&sSta&a&a&afltafesisaflEaflcaflt 

^P  T*  HP  HP  Hp  *T*  Hp  HP^P  ^P  1*  ^r*  ^p  *t*  HP  *P  HP  HP  ^*  1*  HP  HP  *P  ^P  *P  *P  Hi*  *t*  HP  HP  *P^*  *P  HP   .  H   *P  HP  *'  *P  *T*  *P  *P  HP  *1*  HP  HP  *P  *l*  *P  *i*  *T*  *P  *P  *»*  *'  *P  Hp  HP 

BE  35*  3}C  »y»  «j*  »f»  3^*  *P  "<*  *P    HP  *>^   •B*  H?  *B*    HP   HP  *P  "I*  t*  **     *>*  HP   HP  ^^  *P  ^^  *HP  *J>  *p   mfi  MJE   *t*  »>p   »,*  5JC  >(»  .-,«  »,-»  »|-»   »|»  3JS  »y»  *(*  *t*  *¥•  *P  *p  ^P  HP  *P  *V*  *P  *"P  *P  *5*  *T*  *P  *p 

EMT3UF-DUMPS    RECEIVE    BUFFER    TO    CONSOLE: 

EMTBUF        LHLD  FRSIZE 

XCHG 

PUSH  D 

LXI  H,RDATATf    TOP   OF   RECEIVE   3UFFER 

CCNLP     MVI  CCONSCUT;  CHAR  TO  CONSOLE 

MOV  E,M 

PUSH  H 

CALL  BDOS 

POP  H 

pop  r 

DCX  D 

MOV  A,D 

ORA  E 

JZ  MSGDONE;  IF  COUNT=FRAME  SIZE-DONE 
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PUSH  D 

INX  H 

JMP  CONL? 

MSGDONE   CALL  EOLN 

CALL  EOLN 
RET 

:££:£#;£;,:  j^^^  *  :^^  ^;^  ^^  ^^  *^  ^;  ^  v^,' **^  ^-'^  ^  ^>?  *^  ^^  ^*^:^#*  *^^  ^^^^  #^5^^^:  3^:;:  ^  —  :;: 
*##*####******************************************:*:******** 

VAXTXT-CONVSRTS  CPM  FORMAT  TEXT  FILES  TO  VAX  FORMAT: 


V A  XT XT 

CALL 

EOLN 

MVI 

ccpsnfil;  open  the  disk  file 

LXI 

D.FCBIN 

CALL 

BDOS 

C?I 

0FFH;  TEST  IF  OPEN  SUCCESSFUL 

JZ 

FERR1 

MVI 

CSDMA;  SET  THE  DISK  DMA  ADDRESS 

LXI 

D.TXTTCP 

CALL 

BDOS 

LXI 

D.TRMSG1 

CALL 

TXTOUT 

CALL 

EOLN 

LXI 

H,TXTTOP;  TOP  OF  TEXT  BUFFER 

PUSH 

H 

LXI 

D.TFDATA;  TRANSMIT  BUFFER  1ST  DATA  B1 

fTE 

PUSH 

D 

MVI 

3,00HJ  BYTE  CTR=0 

PUSH 

2 

CALL 

NULBU^J  FILL  TRANSMIT  BUFFER  WITH  00 

HEX 

READREC 

MVI 

C.READF;  READ  A  DISS  FILE  REC0RD=128 

BYTES 

LXI 

D.FCBIN 

CALL 

BDOS 

CPI 

00EJ  IS  THIS  LAST  RECORD? 

JNZ 

ENDRO 

RDLPA 

POP 

B 

PC? 

D 

POP 

H 

INR 

3;  INCREMENT  COUNTER 

MOV 

A,B 

CPI 

?31H;=129  LAST  3YTE  THIS  RECORD 

JZ 

RSAD2;  GET  ANOTHER  RECORD 

MOV 

A,M 

CPI 

0DH;  cpet? 

JZ 

SKIP2 

CPI 

0ah;  lfeed? 

JZ 

SKIP3 

XCHG 

MOV 

M,A 

XCHG 

INX 

H 

INX 

D 
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SKIP2 


SKIP3 


READ2 


ENDRD 


FERR1 


«-,-»  *r*  *^  ^^  ^p  +^ 

ISO    L 


PUSH 

PUSH 

PUSH 

JMP 

INX 

PUSH 

LXI 

PUSH 

PUSH 

CALL 

CALL 

MVI 

STA 

JM? 

INX 

PUSH 

PUSH 

PUSH 

JM? 

LXI 

PUSH 

INX 

PUSH 

MVI 

PUSH 

JMP 

MVI 

STA 

POP 

POP 

PC? 

CALL 

LXI 

CALL 

RET 

LXI 

CALL 

HIT 


H 
D 
3 

RDLPA 

H;    IF   BYTE=CRET    THEN   SEND    THE   FRAME 

H 

D,TTDATA 

D 

B 

sendfram;  send  it 

nulbuft  null  the  buffer  again 

A ,01?;    SET    TYPE    FIELD=INTERMED   FRAME 

TTYP2 

RDLPA ;    READ   NEXT   BYTE   AFTER    SKI?    CRET 

h;    if  linefeed  THEN   SKIP  and  READ  MORS 

H 

D 

B 

RDLPA 

H.TXTTO?;    IF    CTR    >128   THEN    JET   RECORD 

a 

D 

D 

B,00H;    RESET    BYTE    CTR 

B 

READREC    SET    THE    NEXT    RECORD 

A,0FFH 

TTY?2 

B 

D 

H 

SENDFRAM 

D.DMSG 

TXTOUT 

;    DONE 
D,ER^Sa;    ERROR    MSG-FILE    NOT    OPEN 
TXTOUT 


*r»*f*3tC3(C  Vt*  -P  n*  3£  *<i*  3JC  ■**  IjC  3(*8j6  3»63|63jB  -,»  3jC  *r»  -f»  3$C  3jC  2?  t  t*  -r  ^^^^^*^*y,'?*'i**£nl**t*,*r**,r,**T**'i*  *v  *»*  2,«  -X-  «t*  *i*  * 

y*  V#  v*  ***  ***  *V  ***  *^£  V*  V*  *J?  W  V*  V*  Vp  */t  V*  V£  sli  ***  V*  ***  illf  yft  *tt  **£  ***  V<  *•*  §h  •**  *y  **<*  "^  *^*  *^  "•'*  ***  *?t  **t  ***  »**  ***  **»  ***  ***  *^*  ***  V?  *•**  * 

«^-  1J"«  rf|*  rf^1*  -,-»  *^>   ',*   I»  if,-*  #(»  ^|^  *%«•  •"j'»  »,-•  •A[»i  ^S  >|0  ."jS  *)«  «"^»  .*f*  -y*    *^V  »»|*  ^K  «■(">>  r|*  A^   «■*»  *"!*•  ""*  *Y*  '|-  -:■*  'i*  -  ,»  ')*  -*.~  •"!*  •*!""  *J*  ',-  »i*  ^*  -  .■*  -  ;"  *■"•  *(*•  'l"*  T*  • 

EVEL    3    TRANSMIT    FUNCTION-SENDFRAM : 


:*# 


SENDFRA^-SENDS    FRAMES    ON    THE    ETHERNET: 


SENDFRAM 

DI 

LOCP1 

LXI 

H.CSREG, 

LOO?    UNTIL    ENABLE    REG=    0    OR    4 

MOV 

A,M 

CPI 

00H 

JZ 

GO 

CPI 

04H 

JZ 

GO 
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EI 

JMP  LCOPi;  KEEP  CHECKING 
GO        DI 

LXI  H.CEREG 

MOV  A.M 

CPI  00H 

JZ  GOl 

CPI  04H 

JZ  GOl 

EI 

JMP  LCOPi;  IT  CHANGED  GO  BACK  TO  LOOP 

GOl       MVI  A.00H 

LXI  H.CEREG;  DISABLE  NI3010  INTERRUPTS 

*OV  MfA 

OUT  IEREG 

EI 

MVI  A,?0H;  LOAD  TRANSMIT  ADDR/BYTE  COUNT 

OUT  E  B/ R 

LXI  H.T3UFFTJ  TO?  OF  TRANSMIT  3UFEER 

MOV  A.H 

OUT  HBAR 

*OV  A,L 

OUT  LBAR 

LHLD  FRSIZEI  SET  TRANSMIT  FRAME  SIZE 

LXI  D.0008H;  ADD  8  TO  IT 

DAD  D 

MOV  A.H 

OUT  H2REG 

MOV  A,L 

OUT  L3REG 

DI 

MVI  A.06H 

LXI  H,CEREG;  ENABLE  TRANSMIT(TDD)  INTERRUPT 

MOV  M.A 

CUT  IEREG 

EI 

HLT  ;  WAIT  FOR  THE  INTERRUPT 

COMP      LXI  H.CEREG 

MOV  A.M 

CPI  06HJ  HAS  TDD  INTERRUPT  ARRIVED? 

JZ  CCMP 

DI 

LXI  H.VTERM 

MOV  A.M 

CPI  01H5  VIRTUAL  TERMINAL  MODE? 

JZ  VTCON 

LXI  D.MSG1 

CALL  TXTOUT 
VTCON     EI 

MVI  A.029HJ  NI3013  LOAD  TRANSMIT  AND  SEND  CMD 

DI 


34 


OUT        CREG 


ALL      THREAD 


LXI  h.ack;  SET  ACK  TO  SENT 

MVI  A,00H 

MOV  M,A 

EI 

CALL  AWAIT?  WAIT  FOR  ACKNOWLEDGE  FRAME 

RET 

ISO  LEVEL  2  ROUTINES:  AWAIT (TRANSMI T  )  AND  TRMSG (RECEIVE ) : 

AWAIT-WAITS  FCR  RETURN  OP  ACKNOWLEDGE  FRAMES: 


AWAIT 

LXI 

D.eeepFH;  first  timer  loo?  counter 

TRNLP 

LXI 

b,?ffffh;  inner  loop 

TRNLP1 

LXI 

H.ACS 

MOV 

A,M 

CPI 

01H;  received  ack  yet? 

JZ 

3ACK 

DCX 

B 

MOV 

A,C 

ORA 

B 

JNZ 

TRNLP1 

DCX 

D 

MOV 

A,E 

ORA 

D 

JNZ 

TRNLP 

LXI 

d,timmsg;  timed  out-abort 

CALL 

TXTCUT 

LXI 

D.TERRMSG 

CALL 

TXT OUT 

J  MP 

EXIT;  ESCAPE  TC  CPM 

BACK 

MVI 

a,0FFh;  reset  ack  flag 

ST  A 

ACK 

MVI 

At00HJ  RESET  FRAME  ARRIVAL  FLAG 

STA 

FRAMIN 

RET 

j  ^cs^s^^^jfes^:^^:^:  -i3(e  ^s^cs)e  ^t^sa^  a}cs)=  ^e^cs{es{: s}:=j! ;}e3i:^es{c  =5e=«eiJ:s{s  =J:s4s  ^c^;ajc ^s ^e sj:  ;*.; s^: ajc ;;« s>: ^ 3^c  s^ s^ sj:  5^s^s;s^s;:t 

SfCSQS 

J  TRMSG- 

-SENDS 

ACKNOWLEDGE  FRAMES  IN  RECEIVE  MODS: 

TRMSG 

MVI 

C,03H;  CTR=3 

LXI 

H.SRCADDD 

LXI 

D.DADDD 

L00P2 

MOV 

XCEG 

A  ,M 

MOV 

M,  A 

XCEG 

DCR 

C 

JZ 

LDCONT 
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INX  H 

INX  D 

JM?  LCCP2 

LDCONT    MVI  A.P2CH?  RESET  INTERRUPT  PRIORITY 

CUT  0FDH 

MVI  A,0eH 

OUT  EBAR 

LXI  H.TBUFFT 

MOV  1,H 

OUT  HEAR 

MOV  A,L 

OUT  L3AR 

LHLD  FSSIZE 

LXI  D.0009E 

DAD  D 

MOV  A.H 

OUT  HBREG 

MOV  A.L 

OUT  LBREG 

MVI  A,00H;  LOAD  TYPE  FIELD-ACS  FRAME 

STA  TTYP1 

MVI  A.0FFH;  ACK  FRAME 

STA  TTYP2 

MVI  A.06H;  ENABLE  TDD  INTERRUPT 

LXI  E.CEREG 

MOV  M,A 

OUT  IEREG 
EI 

HLT  ,*  WAIT  FOR  THE  INTERRUPT 

DONE     LXI  H.CEREG 

MOV  A,M 

CPI  06HJ  TRANSMIT  DMA  DONE? 

JZ  DONE 
DI 

MVI  A,029H;  LOAD  TRANSMIT  AND  SEND  COMMAND 

OUT  CREG 

CALL  TP.READ 
RET 

OPERATING  SYSTEM  SUBROUTINES: 

RDISK    MVI  A,00E;  READS  A  DISS  FILE  RECORD=128  BYTES 

STA  LFRM  J  PRELOAD  LAST  FRAME  FLAG 

LXI  D.FCBIN 

MVI  CREADF 

CALL  BDOS 

CPI  00H;  =NOT  LAST  FRAME 
15  Z 

^vi  a.?ih;=last  frame 

STA  LFRM 
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RET 


j  ^#**^^#***^iJt*#**«^*^«^^^**^«*^#4c^#^^*#***^*^^***^*^^X«*^^#*^ 


WRDISK    MVI 

C  ,W?.ITEF;WRITES  DISK  FILE  REC0RD-128BYTES 

LXI 

D,FC£0UT 

CALL 

3D0S 

CPI 

00H 

JNZ 

DWERR 

LXI 

D.WRMSG 

CALL 

TXTODT 

RET 

DWERR     LXI 

H,CE?EG 

MVI 

A,00H;  DISA3LE  BOARD  INTERRUPTS 

OUT 

IEREG 

LXI 

D.DWMSG 

CALL 

TXTOUT 

JMP 

EXIT;  ESCAPE  TO  CPM 

»  ^^^^****##***#*##****#******X=**^**^*#*^*^^**^*#***^*V«^V^s!t5!«* 

OPENDF    MVI 

A,0?H;  OPENS  DISK  FILES 

STA 

FNOP 

LXI 

D.FCEIN 

MVI 

C.OPENFIL 

CALL 

3D0S 

CPI 

0FFHJ  OPENING  EPROR 

RNZ 

MVI 

A.01H 

STA 

FNOP 

RET 

j  ########£:{{#:£ #*############# ######:*^ 

DELEDF   LXI 

h.recfil;  DELETES  EXISTING  DISK  FILES 

MOV 

A,M 

INR 

a;  increment  received  file  number 

STA  > 

RECFIL 

STA 

FC30UT*8 

LXI 

D.FC30UT 

MVI 

C, DELETE 

CALL 

3D0S 

RET 

J  *«#**^^*«^^^«*^^^*^^*^***#***^^#***^«<!«#^^:^^**xt******>?5!s^**^ 

MAKEDF    LXI 

d.fcbcut;  makes  a  new  disk  file 

MVI 

CMAKEF 

CALL 

3D0S 

RET 

'  **^s5je#^^^s^<e^5j:3)t^#-t 

##j£££#V:£####:*##*  ####*###*#  #^##*#*  *##*##*#*# 

CLOSDF    LXI 

d,fcpout;  closes  a  disk  file 

MVI 

C, CLOSE? 

CALL 

3DCS 

RET 

J  ^^sit^c**^:*^:*;;:*^*^^ 

-■.»«,  ~i~  U*  %»*  *»*  *l*  -JU  «J*  *V  *JU  «U  .  V  **»  ->.  **-  ->-»**  *JU  *A»  J-  •***  •**  ***  -"  %**  **-  -*■*  *  V  «■''  " '  *  "'-  ~  -  *■**■  -*-  -*-  -''  -  *  -'-*  *** 

-.— 1-  *?*■;*  «v  *»*  ".■**i=  n*  *r  *i*  'i-  *r  ***  1*^1*  *r  *^  ****n  *»■•  *r*  »i**»*  t't  n*  *r  -^  ^i*  *r*  t*  t*  T*  *r  ni*  *f*  ^r  -r»  t*  *r*  *i*  i* 

RCVDMA    LXI 

d,rdat«t;  sets  disk  DMA  for  receive  mods 

MVI 

CSDMA 

CALL 

3DCS 

37 


RET 


•  JlsXe******^*^******^^**^^**^*!;^**^:**  ::-.#})e:<t##>}:*:£:fc#*##**5::£ 3* J}:** ?:#•.;; 


d.tfdata;  sets  disk  dma  addr  for  transmit 

C.SDMA 

BDOS 


TRNDMA    LXI 
MVI 
CALL 
RET 

UTILITY  SUBROUTINES: 

READ-READS  THE  COMM/ND  STATUS  REGISTER  AFTER  EACH  COMMAND: 


READ 

MVI 

B, 111111103 

MVI 

C.00E 

STLP 

IN 

ISREG 

OR  A 

B 

CPI 

0EEH;  statu 

JNZ 

•J  X  Lt  Z 

IN 

SRSG 

CMP 

C 

JZ 

STDONE 

JM? 

ERROR 

TRREAD 

MVI 

B,  111111103 

STLP1 

IN 

ISREG 

ORA 

B 

CPI 

0FFH 

JNZ 

STLP1 

IN 

SREG 

CPI 

00H 

JZ 

STDONE 

CPI 

01H 

JZ 

STDONE 

ERROR 

LXI 

DtEMSG 

CALL 

TXTOUT 

STDONE 

RET 

READY  TO  BE  READ? 


TXTOUT-CUTPUTS  TEXT  STRINGS  TO  THE  CONSOLE: 


TXTOUT 


MVI 

CALL 

CALL 

RET 


C .PSTRING 

3DCS 

EOLN 


;    EOLN-GENERATES    CARRIAGE   RETURN    +    LINE    FEED: 


•  «V    *•*-*■   *V    ■*■'*  W*      -•*    Sr    *»> 


EOLN 


MVI 

CCONSOUT 

MVI 

E,0DH 

U.'.  III! 

3D0S 

MVI 

CCONSOUT 

MVI 

E,0AH 

CALL 

BDOS 

RET 
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j  ********;;«****************************** ********** 

;    NULBUF-FILLS    THE   TRANSMIT 


NULBUF 
NULLOOP 


MVI 

LXI 

MVI 

MOV 

DCR 

HZ 

INX 

JMP 


C0080H; 

H.TFDATA 

A,00H 

M,A 

C 

H 

MULLOO? 


***: 

BUFFER  WITH  NULLS (00  HEX) 
CTR=128 


•  *********************************************************** 

•  *********************************************************** 


STORAGE  ALLOCATION 


FRAMIN 

CSREG 

J  NEEDED 

TRMSG1 

DMSG 

ERMSG 

NORESMSG 

LCNGMSG 

TERRMSG 

TIMMSG 

EMSG 

MSG1 

FERMSG0 

WEMSG 

DWMSG 

C0MM0N/TXFC3/ 

FCBIN     DS 

COMMON/RXFCB/ 

FCBOUT    DS 

COMMON/TXBUFF/ 


DS 
DS 

MESSAGES 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 


J  FRAME  ARRIVAL  FLAG 

J  COPY  OF  INTERRUPT  ENABLE  REG  VALUE 


TBUFFT 

DADDB 

DADDC 

DADDD 

DADDE 

DADDF 

TTYP1 

TTYP2 

TFDATA 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 


C0MM0N/RX3UFF/ 


RBUFFT 

SRCADDD 

SRCADDE 

SRCADDF 

RTYPE1 

RTYPE2 


DS 
DS 

DS 
DS 
DS 
DS 


'******  ?ILE  TRANSFER  BEGINS  *****$' 

'******  fii$    TRANSFER  COMPLETE  *****$' 

'FILE  NOT  ON  DISKS  ' 

'ON  RESPONSE  FROM  VAX-EXITING  TO  CPMS  ' 

'MAX  CHARACTER  LENGTH  REACHED-MSG  SENT$' 

'UNRECOVERABLE    ERROR-EXITING    TO    C?/M$' 

'TIMED  OUT-ABORTING  TRANSMISSIONS' 

'NI3010  COMMAND  FAILED$' 

'TX$  ' 

'RECEIVED  BAD  FRAME$ ' 

'RX$' 

'DISK  WRITE  ERROR-DISK  FULLS' 

36;  TRANSMIT  FILE  CONTROL  BLOCK 

36J  RECEIVE  FILE  CONTROL  BLOCK 


1  ; 

l  ; 

i  ; 

l  ; 

l  ; 

l  ; 

l  ; 

l  ; 
1500; 

13; 

l  ; 

l  ; 

l  ; 

l  ; 

l  ; 


TRANSMIT  BUFFER  TOP-1ST 
SECOND  DEST  ADDR  BYTE 
THIRD  DEST  ADDR  BYTE 
!  ADDR  BYTE 
ADDR  BYTE 
ADDR  BYTE 
FIELD  BYTE 


DEST  ADD3YTE 


FOURTH  DES' 
FIFTH  DEST 
SIXTH  DEST 
FIRST  TYPE 


SECOND  TYPE  FIELD  BYTE 
DAT »  FIELD  MAX  SIZE 

RECEIVE  BUFFER  TOP-FRAME  CHECK  BYTE 

FOURTH  SRCE  ADER  BYTE 

FIFTH  SRCE  ADDR  BYTE 

L*.ST  SRCE  *DDR  BYTE 

FIRST  RECVD  FRAME  TYPE  FLD  3YTE 

SECOND  RECVD  TYPE  FLD  BYTE 


39 


ED  AT  AT        DS 

CRC3YT  DS 
COMMON/TXTBUF/ 
TXTTCP  DS 
COMMON/FRSIZE/ 
FRSIZE  DS 
COMMON/ACX/ 
ACK  DS 

COMMON/TNOP/ 

FNOP  DS 

COMMON/LFRM/ 


LFR 


M 


DS 


4 
128 


COMMON/TRMODE/ 
TRMODE        DS 
COMMOM/FILTYP/ 

FILTYP        DS 
COMMON/RECFIL/ 

RECFIL        DS 
COMMON/VTERM/ 
VTERM  DS 

END;    ASSEMBLY 

•  n*  ?%*  ^i*  -(*  **.-  "%£   'r  *■£  *»•  -»~  t*  *»*  ^r  *v  -r*  *r  -i-  * «*  V  ' «*  - 1* 


REC7D    DATA    FIELD    MAX    SIZE 
CRC    FIELD 

VAX    TEXT    TEMP    BUFFER 

ACTUAL    FRAME    DATA    BLOCK    SIZE 

ACKNOWLEDGE    FLAG    LOCATION 

FILE    NOT    OPEN    FLAG 

L.flST    FRAME    FLAG 

VAX    TRANSMIT    FLAG 

TYPE   OF   FILE   TO   SEND 

RECEIVED   FILE    NUMBER 

VIRTUAL    TERMINAL    SERVICE    FLAG 
LANGUAGE   MODULE    ETHER2.ASM 

~  ;'c  3S  sfs  ^:  rs  sis  ;!s  ;!!s  ^sis  isrfe  : -is  ~s  isi;  :x  ;U  is  ~;ir  is  is  is  ^  :'t  is  ;!s  ;."s  jlsrits'caJs  s's  i'sis 
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APPENDIX  L 
TEST  PROGRAM  USER  INSTRUCTIONS 

The  Ethernet  hardware  test  programs,  ETHTESTA  and 
ETHTESTB,  are  used  in  the  manner  belov: 

1.  Invoke  either  program  using  normal  CP/M-80  procedures. 

2.  Both  programs  first  command  the  NI3012  to  run  it's 
built-in  diagnostic  tests  and  report  failures  to  the 
user  via  the  console.   The  codes  that  ETHTESTE  will 
display  as  ASCII  letters  are  encoded  as  noted  at  the 
end  of  the  ETHTEST3.ASM  source  listing. 

3.  Next,  both  programs  ask  the  user  to  input  a  short  line 
of  text  that  the  programs  use  in  testing  the  integrity 
of  the  essential  data  paths  of  the  NI3310.   Program 
ETHTESTJ  will  as*  the  user  for  a  second  text  line 
input  because  it  performs  one  more  test  than  ETHTESTA. 
The  maximum  number  of  characters  per  line  is^g  and 
the  line  must  be  ended  with  a  grave  accent: 

4.  The  tests  are  successful  if  no  error  indications  are 
displayed  on  the  console  and  the  text  typed  ir.  is 
shown  on  the  console  exactly  as  it  was  entered  after 
each  data  oath  input. 
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APPENDIX  M 

COMMUNICATION  PROGRAM  US ER  INSTRUCTIONS 

The  instructions  for  use  of  the  communication  program 
ETHERNIT.COM  are  as  listed  below: 

1.  Invoke  the  program  ETHERNET  usin^  normal  CP/M-53 
procedures . 

2.  The  program  will  then  ask:  for  the  selection  of: 

A.   The  disk  drive  number  to  write  any  received  files 

to. 

3.   The  desired  number  of  data  bytes  per  Ethernet 

frame . 

C.   The  network  service  desired.   The  choices  are: 

1.  Send  messages  or  files. 

2.  Receive  messages  or  files. 

3«   Virtual  terminal  service  with  the  7AX. 

4.  Command  file  transfers  to  or  from  the  VAX. 

5.  Disconnect  from  the  network. 

Dependirg  on  which  of  the  above  services  is  requested 

by  the  user,  the  program  will  do  the  following: 

1.   Send  a  file  or  message:  The  program  will  ask  the  user 
to  specify  which  one   and,  depending  on  the  response, 
will  do  th°  following: 
A.   If  message  sending  is  selected,  the  program  will: 

1.  Ask  the  user  to  choose  the  network  address  of 
the  dest  ination . 

2.  Then  ask  the  user  to  input  the  message  itself. 
The  maximum  message  size  is  determined  by  the 
previously  selected  data  block  size.   The  last 
character  entered  in  order  to  transmit  must  be 
a  ?rave  accent  character: 

3.  The  message  is  then  sent  and  upon  successful 
receipt  by  the  destination  host  the  program 
restarts  . 

3.   If  file  sending  is  selected,  the  program  will: 

1.  Ask  the  user  if  the  file  is  a  text  or  machine 
cede  f ile . 

2.  Ask  the  user  to  specify  which  diSrc  the  file  is 
located  on. 

3.  Ask  the  user  the  filename  and  filetype  of  the 


?2 


file. 

4.  Ask:  the  user  to  specify  the  network  address  o 
the  destination. 

5.  Upon  successful  transmission  of 
file  the  urogram  will  restart. 


the  entire 


Receive  a  file  or  message:  The  program  will,  upon 
selection  of  this  mode,  wait  in  a  loop  for  any 
transmissions  addressed  to  it  to  arrive.   After  the 
receipt  of  any  file  or  message,  the  program  will 
return  to  the  wait  loop.   This  feature  allows  the 
user  to  leave  the  system  unattended  and  then  send 
multiple  files  and/or  messages  to  it  from  another 
network  host.   The  urogram  numbers  files  in  the 
order  they  are  received  beginning  with  RECFR0^2 .NET, 
etc.   Text  files  received  from  the  VAX  must  oe  run 
through  the  CP/M  PI?  utility  as  follows: 
'PIP  newfilname.filetype=RECFROM_.NET[D80]"  which  will 
chop  off  unneeded  characters.   The  user  can  exit  the 
wait  loop  to  return  to  the  above  menus  by  entering 
a  carriage  return. 

Terminal  service  with  the  V4X  11/780:  The  program  will 
display  a  set  of  instructions  to  the  user  concerning 
the  operation  of  the  program  in  this  mode.   The  user 
can  input  text  after  each  V -prompt  (V>)  appearance. 
To  exit  this  mode,  the  user  must  enter  a  period  (.) 
followed  by  a  carriage  return  immediately  following 
any  V-prompt  (7>).   Upon  exiting  this  mode,  the 
program  returns  to  the  beginning  user  menus. 


Command 

VAX  f 

int: 

£LLE: 

Z   syst 

receive 

files 

The 

procedure 

A. 

Download! 

1 

—  • 

The  u 
"!VAX 

2. 

The  s 
the  r 

3. 

In  th 
EXE  r 

A 

*  • 

After 
puser 
carra 

B. 

Upl 

oaiing 

1. 

The  u 
"3  VAX 

2. 

The  a 
filen 
wi  1  1 

ile  transfers: 
em  to  command 
by  sending  it 
is  as  follows 
ng  VAX  files: 
ser  must  enter 
filename. VAXf 
pecified  VAX  f 
eauesting  unit 
e  above  messag 
efers  to  machi 
the  file  rece 
can  exit  the 
ige  return. 


This  m 

the  VAX 

soecia 


the  me 
i  1  e  t  y  pe 
ile  wil 

e,  TXT 
n  e  code 
ipt  is 
wait  lo 


va  y 


.es  : 


ser  must  enter  the  me 
filename. VAX  filetyp 
bove  message  opens  a 
ame  and  nf  ile  type  or.  t 
reply:  "Ready  for  sen 


ode  allows  the 

to  either  send  or 
lly  coded  messages. 


ssage : 

/TXT  or  EXE"' 

1  then  be  sent  to 

refers  to  text  and 

files, 
completed,  the 
op  by  entering  a 


ssage : 

e/TXT  or  EXE^" 

file  by  the  above 

he  VAX.   The  VAX 

if ile  EN. FT  '  and  the 
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program  will  be  in  the  receive  wait  loop. 
3.   The  user  must  then  enter  a  carriage  return  to 
the  beginning  of  the  program  and  then  follow 
the  normal  file  sending  procedures  as  noted 
above . 

5.  Disconnect  from  the  network:  Selection  of  this  mode 
causes  the  program  to  return  control  to  the  CP/M-80 
operating  system. 

The  other  features  of  this  program  are  as  follows: 

1.   Error  handling:  The  below  listed  transmission  or 
reception  errors  will  cause  the  program  to  display 
error  messages  and  return  to  CP/M-80: 
Receipt  of  a  bad  frame. 

Receipt  of  a  frame  that  has  an  improperly  encoded 
type  field. 

the  sending  host 
d  out ) . 
the  disk  space 


U   * 


J.  C  -LU.  . 

Acknowledge  frame  not  received  by  me  sem 
in  a  ?iven  time  frame  (Source  timed  out). 
Receipt  of  a  file  larger  than  t^Q  ^Mcv  ct> 
remaining  (Disk  full). 


Suecial  instructions 

transferred  from  the 

the  Intel  ISIS-II  op 

A.   These  special  fi 

the  VAX  command 

ETHERNET. EXE  mus 

for  this  transfe 

3.   The  procedure  is 

1.  After  downlo 
double  densi 
CP/M-80,  the 
name  assigne 
it  's  ori<?ina 

2.  The  user  mus 
which  must  h 
file  and  the 

3.  The  user  mvs 
drive  B. 

4.  The  user  the 
invoke  TOISI 
convert  the 
format  and  s 

5.  The  user  mus 
drive  *  and 
drive  E. 

5.  The  last  ste 
system  under 
and  uroceed 


that  must  be 
system  running 


for  IAPX  432  files 

VAX  to  an  INTELLSC 
erating  system: 

les  can  only  be  transferred  using 
mode.   The  VAX/VMS  program 
t  be  invoked  on  the  VAX  in  order 
r  to  be  successful. 

as  follows: 
ading  the  file  to  the  INTSLLEC 
ty  system  using  ETHERNET. COM  and 

user  must  rename  it  from  the 
d  to  it  by  the  receive  program  to 
1  name. 

t  put  the  CP/M-82  disk  in  drive  A 
ave  stored  on  it  both  the  renamed 

Drogra-n  T0ISIS.COM. 
t  then  insert  an  ISIS-II  disk  into 


must 


nt  while  logged  on  drive  A 

S  filename. f iletype .   This  will 

program  on  disk  A  to  the  ISIS-II 

tore  it  on  disk  B. 

t  then  remove  the  CP/M-9P  disk  in 

replace  it  with  the  disk  from 

o  is  to  reboot  the  INTELLEC 

the  ISIS-II  operating  system 
with  the  IAPX  432  procedures. 
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